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FIGURAS GEOMETRICAS 

Forma geometrica das mais fascinantes, o cone e 
responsavel pela geracao de toda uma fa m ilia de 
curvas. Neste artigo apresentamos alguns progra- 
mas para explorar as propriedades dessa figura e 
de suas secoes 801 



CRIE SPRITES COM VPEEK E VPOKE 

Organizacao da mem6ria de video. Onde sao ar- 
mazenados os padroes dos sprites. Como o com- 
putador movimenta sprites. Urn banco de sprites 
em linhas DATA. Urn programa que ajuda a en- 
tender a organizacao dos sprites na VRAM. 808 






BLOCOS GRAFICOS EM AVALANCHE 

A procura do lanche roubado leva nosso indigita- 
do herbi a enfrentar novos obstaculos. Agora, ele 
precisa de uma montanha para escalar. Junte as 
porcoes do videogame. Defina a forma dos blocos 
graficos. Mas procure nao gravar bytes a mais. 816 




PLANO DA OBRA 

"INPUT" e uma obra editada em fasciculos semanais, e cada 
conjuntode 15 fasciculos compoe urn volume. Acapa paraenca- 
dernacao de cada volume estara a venda oportunamente. 

COMPLETE SUA COLECAO 

Exemplares atrasados, ate seis meses ap6s o encerramento da colecao, po- 
derao ser comprados, a precos atualizados, da seguinte forma: 1. PES- 
SOALMENTE — Por meio de seu jornaleiro ou dirigindo-se ao distribui- 
dor local, cujo endereco podera ser facilmente conseguido junto a qual- 
quer jornaleiro de sua cidade. Em Sao Paulo, os enderecos sao: rua Briga- 
deiro Tobias, 773, Centro; av. Industrial, 1 17, Santo Andre; e no Rio de 
Janeiro: rua da Passagem, 93, Botafogo. 2. POR CARTA — Poderao ser 
solicitados exemplares atrasados tambcm por carta, que deve ser enviada 
para DINAP — Distribuidora Nacional de Publicacoes — Numeros Atra- 
sados — Estrada Velha de Osasco, 132, Jardim Teresa — CEP 06000 — 
Osasco — SP. Nao envie pagamento antecipado. O atendimemo sera fei- 
to pelo reembolso postal e o pagamento, inciuindo as despesas postais, 
devera ser efetuado ao se retirar a encomenda na agenda do Correio. 3. 
POR TELEX — Utilize o n? (Oil) 33 670 DNAP. 
Em Portugal, os pedidos devem ser feitos a Distribuidora Jardim de Pu- 
blicacoes, Lda. — Qta. Pau Varais, Azinhaga de Fetais — 2 685, Cama- 
rate — Lisboa; Apartado 57 — Telex 43 069 JARL1S P. 
Atencao: Apos seis meses do encerramento da colecao, os pedidos serao 
atendidos dependendo da disponibilidade do estoque. 
Obs.: Quando pedir livros, mencione sempre titulo e/ou autor da obra, 
alem do numero da edicao. 

COL ABORE CONOSCO 

Encaminheseuscomentarios, criticas, sugestdes ou reclamacoes 
ao Servico de Atendimento ao Leitor — Caixa Postal 9442, 
Sao Paulo — SP. 
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AS SE COES DO CONE 



DESENHE CIRCULOS, ELIPSES, 



PARABOLAS E HIPERBOLES 



ROTACAO DE CURVAS 



APLICACOES PRATTAS 



Forma geometrica das mais fascinantes, 
o cone e responsavel pela 
geracao de toda uma familia de curvas. 
Eis aqui alguns programas para 
explorar as propriedades dessa figura. 



Criadores da geometria, os gregos an- 
tigos consideravam as curvas — pelas 
quais eram fascinados — tanto mais im- 
portantes quanto mais simples e elegan- 
tes eles fossem. Assim, quando se des- 
cobriu que toda uma familia de curvas 
— conhecidas como secoes conicas — 
poderia ser obtida simplesmerue cortan- 
do-se urn cone de diferentes maneiras, 
pareceu obvio que esses solidos geome- 
tricos deviam ter uma significacao espe- 
cial. Realmente, dependendo de como 
se secciona o cone, pode-se obter um cir- 
culo, uma elipse, uma parabola ou uma 
hiperbole. 

Na verdade, o traco marcante dessas 
curvas esta no faio de que elas nao sao 
meras abstracoes matematicas, mas apa- 
recem a todo moment o no nosso coti- 
diano e proporcionam uma descrigao 
exata de fenomenos fisicos. 

Existem, certamcnte, outras curvas 
simples encontradas na natureza que 
nao sao secoes de um cone. A forma 
produzida por uma corda ou corrente 
presa por dois pontos nas extremidades 
e um exemplo. Conhecida como catena- 



ria, essa curva difere ligeiramente da pa- 
rabola. Entretanto, as equacoes que ser- 
vem para descrever as duas formas sao 
completamente distintas. As secoes cd- 
nicas aparecem freqiientemenie relacio- 
nadas ao modo como as coisas se mo- 
vem (um objeto lancado sobre a super- 
ficie da Terra, por exemplo, executa 
uma curva paraboliea). Assim, elas sao 
necessarias para uma simulacao convin- 
cente e exata desses movimentos. 

Algumas curvas tambem sao liteis pa- 
ra definir objetos tridimensionals. Os 
cortes de um cone tern obviamente duas 
dimensoes, mas podem ser rodados em 
seus eixos para produ2ir uma forma de 
Cres dimensoes. Assim, o circulo se 
transforma em uma esfera, com um sem 
numero de apltcacoes; a parabola, em 
um paraboloide, usado em objetos co- 
mo farois de automoveis, espelhos de te- 
lescdpios, fornos solares etc. 

A primeira parte deste artigo descre- 
ve cada curva e como desenha-la na te- 
la do computador, enquamo a segunda 



mostra como usa-la em simulacoes co- 
mo a trajetoria de um balde (ou outro 
objeto) pendurado em uma escada que 
desliza e acaba caindo (uma elipse) ou 
a curva descrita por uma pessoa cruzan- 
do um rio a nado (uma parabola). 

Veremos tambem como desenhar be- 
las formas usando a hiperbole e a elipse. 
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COMO CORTAR CONE 



As quatro curvas obtidas quando se 
seccionar um cone — o circulo, a clip- 
se, a parabola e a hiperbole — diferem 
totalmente entre si. Foram estudadas em 
detalhe pela primeira vez pelo grego 
Apolonio, por volta de 200 a.C. 

O ponto inicial e: se um par de retas 
que se cruzam — eomo um X — roda 
em torno de um eixo de simetria, gera- 
se um duplo cone (veja os desenhos des- 
tas paginas) que pode ser cortado por 
um piano de quatro maneiras. 

Se um corte e feito em angulo reto ao 
eixo de simetria, a secao resultante e um 
circulo. 

Um corte feito em um angulo entre 
90° e metade do angulo formado pelas 
linhas que geraram o cone (conhecido 
como angulo semivertica! do cone) pro- 
duz uma elipse. 

Um piano que faz com o eixo um an- 
gulo igual ao angulo semivertical nos da 
uma parabola. Ja um piano que faz com 
o eixo um angulo menor que o semiver- 
ticaJ cria uma secao em duas partes cha- 
mada hiperbole. Ela tern duas partes 
porque no.sso piano corta tanto o cone 
de cima como o de baixo (lembre-se de 
que o duplo cone foi gerado pela rota- 
cao de um X). 

Exisiem dois casos especiais. Se, por 
exempio, o corte e feito por um piano 
que passa pelo eixo, tsto e, se os cones 
sao divididos verticalmente^>e!a meta- 
de, serao obtidas duas linhas retas — 
aquelas que foram usadas para gerar a 
figura. Ela.s configuram na rcalidade um 
caso especial de hiperbole. Por outro la- 
do, se um piano cortar os cones pelo ver- 
tice, fazendo um angulo reto com o ei- 
xo vertical, tudo o que se tern e um pon- 
to, que e um circulo de raio zero. 

Os desenhos destas paginas devem 
deixar claro como tais formas sao obti- 
das. Se quiser, voce tambem pode cor- 
tar cones feitos de material de facil ma- 
nipulacao — como isopor ou papel — 
e verificar o que obtem. Um cone du- 
plo so sera necessario se voce quiser ter 
uma hiperbole de verdade, visto que ela 
sempre tern duas paries. 



CURVAS E MAIS CURVAS 



As curvas sao geradas por equacoes 
simples, algumas das quais ja foram 
abordadas em outros programas. Elas 
serao sempre desenhadas na tela de alta 
resolucao do seu micro, Vejamos agora 
algumas delas. Comecemos pelo circu- 
lo, uma das curvas mais simples. 



CIRCULO 



A equacao de urn circulo e dada por: 

X = A*COS teta 
Y = A*SEN teta 

onde A e o raio. X e Y, um pouto qual- 
quer da circunferencia, e teta, angutc 
formado com uma reta prefixada, em 
geral o eixo X. 

O primeiro programa desenha um 
circulo de raio A no meio da tela: 



in CLS 

15 LET a = 70 

25 LET x=a: LET y=0 

30 PLOT 127+X.70+Y 

40 FOR t. = TO 2*PI STEP .2 

50 LET x-d*COS t. : LET y=a*SIN 

t 
60 DRAW x-PEEK 2 36/7+12 7 , y- 
PEEK 2.1679+70 
70 NEXT l. 



10 PM0DE 4 :PCLS: SCREEN 1,1 

15 A=60 

20 C»ATN(l)/45 

30 LINE- (127+A, 95} .PRESET 

4 FOR TH-0 TO 360 STEP 10 

50 X-A*C0S(TH*C) : Y»A*SIN (TH*C) 

60 LINE -C127+X.95+Y) , PSET 

70 NEXT TH 

60 GOTO 80 



r/fi 



It) COLOR 15,4 ,4rSCP.EEN2 

IS A-60 

20 C=ATN(1) 74.5 

.10 LINE - (127+A, 95) ,4 

40 EOR TH = TO 360 STEP 10 

50 X=A*COS(TH*C) ; Y-A*S1N (TH*C ) 

60 LINE -(127+X.95+Y) .15 

70 NEXT 

80 GOTO 80 



HIE] 



O laco FOR.. .NEXT das linhas 40 a 
70 e a parte do programa que desenha 
o circulo, tracando repetidamente seg- 
mentos de reta a intervalos de 10° (ou 
0.2 radianos). O raio do circulo e defi- 
nido na linha 15. 



A ELIPSE 



A equacao da elipse e muito pareci- 
da com a do circulo. Para uma elipse 
com o eixo maior 2A e o menor 2B, a 
posicao do ponto da periferia e: 

X = A*COS teta 
Y = B*SEN teta 

A forma da elipse — ou seja, suas 
proporcoes de caraeteristicas mais ou 
menqs achatadas — e determinada por 
A e B. Altere estas linhas: 



16 LET b=40 

50 LET X = a*C0S f. : LET y = t>*STN 

r. 




O circulo 



HGR 



HCOLOR= J 



10 HOME 

15 A = 60 

20 C = ATN (1) / 45 

.10 HPt.OT 127 + A, 95 

40 FOR TH = TO 360 STEP 10 

50 X » A * COS (TH * C) :¥ = A 

* SIN (TH * C) 

60 HPLOT TO 12 7 + X , 95 + V. 

70 NEXT 
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o 

16 B-30 

50 X-A»COS(TH*C) ;Y-B*SIN (TH*C) 



m 



16 B=30 

50 X=A*C()S{TH*C:) :Y-B*SIN(TH*C) 



A PARABOLA 



O tamanho da parabola depende do 
valor de uma variavel, conhecida por T. 
As equates sao: 

X = T 

Y = 2*T 



QBE] 



16 B = 30 

50 X - A * COS (TH * C) :Y = B 

* SIN (TH * C) 




A parabola 



A el ipse 



O valor de T pode variar de infinito 
a menos infinito; grande parte de uma 
parabola, contudo, pode ser vista como 
T variando entre +2 e -2. No progra- 
ma, esses valores tem que ser postos em 
escala por um fator M para que a curva 
caiba na tela do micro. 




tela i. 470* * 


tetb « 90* 


~N 




talSii ISO* / 


A \ lela^o* 






teta ^ »o" 


teia^ _m* 



A hiptxbole 
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70 NEXT t 

75 LET x=m/COS (PT-J): LET y 
m*TAN (PI-1) 
80 PLOT 17 7+X.75+Y 
90 FOR t-PI-1. TO PT + 1 
100 LET x=m7C0S 1 : LET 



STEP I 
Y = m* c 'fAN 



110 DRAW L27+X-P6KK 23677, 75+V 

-PEEK 7367B 
120 NEXT t 

D 

10 PMODE 4 :PCLS: SCREEN 1.1 

15 M-50 

20 C-ATNU)/45 

30 LINE - (227, B) .PRESET 

40 FOR TH--60 TO 60 STEP 5 

50 X-M/COS{TH*C> :Y=M*TAN(TH«C) 

60 LINE -(127+X.9S+Y) , PSET 

70 NEXT TH 

80 LINE- (26, 8) .PRESET 

90 FOR TH=12Q TO 240 STEP 5 

100 X-M/COS<TH*C) rY-M*TAN(TH*C) 

110 LINE- (127+X.95+Y) , PSET 

120 NEXT TH 

130 GOTO 130 



10 CLS 

15 LET m=20 

25 LET x=4*m: LET y=--4*m 

30 PLOT 12?+x,80+y 



40 


FOR t=-2 TO 


2 STEP 


.05 


50 


LET x=m*t*t 


LET y- 


=2*m*t 


60 


DRAW x-PEEK 


23677+127, y- 


PEEK 23678+80 






7 


NEXT t 







■ ■ 



10 PMODE 4 :PCLS: SCREEN 1,1 

15 M-23 

20 C-ATNU)/4S 

30 LINE- (127+M*4,95-4*M) .PRESET 

40 FOR T--2 TO 2 STEP .05 

50 X-M*T"2: Y-2*M*T 

60 LINE- (127+X. 95+Y. ) , PSET 

70 NEXT T 

80 GOTO 80 



rtti 



10 COLOR 15,4 ,4 :SCREEN2 

15 M=23 

20 C=ATN(l)/4 5 

30 LTNE -(12/+M*4,95-M*4) , 

40 FOR T— 2 TO 2 STEP .OS 

50 X=M*T*2:y-2*M*T 

60 LINE -(127+X.9S+Y) , 15 

70 NEXT 

80 GOTO 80 



P 



LAJL&I 










1 HOME 


BUR2 




HCOLOR 


15 H = 20 










20 C = ATN (U 


/ 


45 




30 HPl.OT 


127 + 


M 


* 4 


95 



M 

40 FOH T 
50 X - M » 
60 BPLOT 

70 NEXT 



» - 2 TO 2 STEP .05 
T*2:Y=2*M*T 
TO 127 + X.95 + y 



A HIPERBOLE 



A equacao da hiperbole e: 

X = A/COS teta 
Y - B*TG teta 

Metade da hiperbole e tracada en- 
quant o teta varia de -90° a 90° e a ou- 
tra metade, enquanto teta varia de 90° 
a 270°. Teorieamente, e possivel usar 
apenas urn laco no programa para va- 
riar teta de -90 a +270, mas ha proble- 
mas nos pontos -90, 90 e 270, onde ocor- 
re uma divisao por zero. Mesmo com 
valores pr6ximos destes, grandes mime- 
ros sao envolvidos. Assim, o nosso pro- 
grama recorre a dois lacos. Novamen- 
te, o fator M vem estabelecer a escala 
mais adequada para a figura: 



10 CLS 

15 LET m-30 

25 LET x-m/COS -1: LET y = m* 

TAN -1 

30 PLOT 127+x,75+y 

40 FOR t— 1 TO 1 STEP . 1 

50 LET x=nt/C0S t : LET y=m*TAN 

t 
60 DRAW 127+x-PEEK 23677, 75+y 
-PEEK 23678 




Wi 



10 COLOR 15, 4. 4: SCREEN 2 

J 5 M^50 

20 C-ATNfl)/4 5 

.10 LTNE -(227,8) .4 

40 FOB TH=-60 TO 60 STEP S 

SO X=M/C0S{TH*O :Y-M*TAN(TH*C) 

60 LINE -P127+X.95+Y) , 15 

70 NEXT 

80 LINE - (26,8) .4 

90 FOR TH = 1.Z0 TO 240 STEP 5 

100 X=M/COS (TH*C) ■ Y = M*TAN(TH*C) 

110 LINE - (127+X.95+Y) ,15 

120 NEXT 

1.30 GOTO 130 

GEE] 

10 HOME ! HGR2 
15 M - 50 
20 C = ATN (1) 
JO HPLOT 227,8 
40 FOR TH - - 



70 


NEXT 


BO 


HPLOT 26,6 


90 


FOR TH « 120 TO 24 STEP 


100 


X « M / COS (TH * C) :Y 


* 


TAN (TH * CJ 


1 10 


HPLOT TO 127 + X,95 + 


120 


NEXT 



HCOI.OR = 



/ 45 



60 TO 60 STEP 5 



(TH 



C) :Y = M 



50 X - M / COS 
* TAN (TH * C) 
60 HPLOT TO 127 + X,95 + Y 



COMO RODAR AS CURVAS 



Os programas anteriores desenharam 
as curvas na sua forma mais simples, so- 
bre um eixo horizontal e outro vertical. 
No entanto, essa posicao nem sempre e 
conveniente; alem disso, pode-se querer 
desenhar as curvas em outra posicao. A 
figura 1 mostra o que acontece com um 
ponto na periferia de uma elipse quan- 
do esta sofre uma rotacao de um angu- 
lo de AN graus. O ponto P move-se da 
posigao X,Y para uma nova posicao 
XT, YT e as novas coordenadas sao da- 
das por: 

XT = X*COS AN-Y*SEN AN 
YT = X'SEN AN + Y*COS AN 




Eis aqui a rotina de rotacao para ca- 
da computador: 



(an*PI/180)-y 
(an*PT/180)+y 



1000 LET xt=x*COS 

*SIN (an*PI71B0) 

1010 LET yt=x*SIN 

*COS (an*PI/180) 

102 RETURN 

El MOD [3] 



1000 XT-X*COS(AN*C)-Y*SIN(AN*C) 
1010 ¥T-Y*COS{AN*C)+X*SIN{AN*C) 
1020 RETURN 

Algumas alterac6es deverao ser fei- 
tas nos programas que desenham as cur- 
vas para que eles possam usar a sub- 
rotina de rotacao. Em primeiro lugar, 
o angulo de rotacao tern que ser especi- 
ficado {linha 17); a posicao inicial deve 
ser rodada e as linhas, desenhadas nas 
novas coordenadas XT e YT. A linha 1 7 
pode ser alterada para permitir a entra- 
da do valor do angulo para rotacao por 
meto de uma instrucao INPUT. E im- 
portante lembrar que essa instrucao de- 
ve ser colocada antes da selecao do mo- 
do grafico. 

Vejamos agora quais sao as mudan- 
cas que precisamos realizar no progra- 
ma BASIC que desenha a elipse, Nao se 
esqueca de incorporar a rotina de rota- 
cao a cada programa. 



17 LET an = 60 

28 GOSUB 1000 

30 PLOT J 2 7+xt , 70+yt 

55 GOSUB 10 00 

60 DRAW xt-PEEK 23677+127, yt- 

PEEK 2367B+70 

80 STOP 

El 

17 AN-60 

25 X-A:GOSUB 1000 

30 LINE- (127+XT.95+YT) .PRESET 

55 GOSUB 1000 

60 LINE- (1 27+XT, 95+YT) , PSET 



m 



17 AN=60 

25 X=A:GOSUB 1000 

30 LINE -(12/+XT, 95+YT) ,4 

55 GOSUB 1000 

60 LINE -(XT+127.YT+95) ,15 



msi 



17 AN = 60 

25 X - A: GOSUB 1000 

30 HPLOT 127 + XT, 95 + YT 

55 COSUB 1000 

60 HPLOT TO 127 + XT, 95 + YT 

80 END 



3 
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Para fazer a rotacao da parabola 
deve-se empregar a mesraa sub-rotina. 
Adicione-a ao programa principal e fa- 
9a as seguintes alteracSes: 



17 LET an = 60 

28 GOSUB 1000 

30 PLOT l2 7+xt.80+yt 

40 FOR t--1.75 TO 1.75 STEP 

.05 

55 GOSUB 1000 

60 DBAW 127+xt-PEEK 23677,80+ 

yt-PEEK 23678 

60 STOP 

El 

17 AN-60 

20 C-ATNU)/45 

25 X-M*4rY— MM: GOSUB 1000 

30 LINE -( 12 7+XT.95+YT) .PRESET 

55 GOSUB 1000 

60 LINE -U27+XT.95+YT) , PSET 



) :GOSUB 1000 

80 DRAW"BM" + STR${INTU27+XT)) + ' 

,"+STRS(INT<95+YT>) 

90 FOR TH-135 TO 240 STEP 5 

105 GOSUB 1000 

110 LINE -C127+XT.95+YT) ,PSET 



fm 



17 AN=60 

25 X=M/COS(-60*C) - Y=M*TAN (-60*0 

) : GOSUB 100 

30 LINE -(127+XT.95+YT) ,4 

55 GOSUB 1000 



60 LINE -(XT+1Z7.YT+9S) ,15 

75 X=M/COS(135*C) : Y=M*TAN ( 135*C 

) : GOSUB 1000 

80 LINE -(127+XY,9S+yT) ,4 

90 FOP, TH-135 TO 240 STEP 5 

J 05 GOSUB 10 00 

110 LINE - (XT+127.YT+95) ,15 

HJEfl 

15 M - 35 
17 AN - 60 

25 X - M / COS ( - 60 * CI :¥ =- 
M * TAN ( - 60 * C> : GOSUB 10 



i 



m 



17 AN-60 

25 X = M*4 :Y=-M*4 : GOSUB 1000 
30 LINE -(127+XT.95+YT) .4 
55 GOSUB 1000 
60 LINE -(XT+L27.YT+95) .15 



HOE] 



/ 



45 

- M 



* 4: GOSU 



15 M = 17 

17 AN - 60 

20 C = ATN (1) 

25 X = M * 4:Y 

B 1000 

30 HPLOT 127 + XT, 95 + YT 

55 GOSUB 1000 

60 HPLOT TO 127 + XT, 95 + YT 

80 END 

E, finaimente, as alteraijoes para ro- 
dar a hiperbole: 



75+yt 



LET an-60 

GOSUB 1000 

PLOT 12 7+xt, 

GOSUB 1000 

DRAW 127+xt-PEEK 23677,75+ 

PEEK 23678 

GOSUB 1000 

PLOT 127+xt. 75+yt 

GOSUB 1000 

DRAW 127+xt-PEEK 23677,75+ 
yt-PEEK 23678 
130 STOP 



17 
28 
30 
55 
60 

yt- 

76 

80 

105 

110 



□ 



17 AN-60 

25 X-M/COSf-60*C) ; Y-M*TAN(-60*C 

) :GOSUB 1000 

30 LINE - (127+XT. 95+YT) .PRESET 

55 GOSUB 100O 
_ 60 LINE -CXT+127.YT+95) ,PSET 
I 75 X-M/COS(135*C) : Y-M*TAN(135*C 




II 



VT 



M 



00 

30 HPLOT 127 + XT. 95 + YT 

55 GOSUB 1.000 

60 HPLOT TO 12 7 + XT, 95 + 

75 X « M / COS (135 * C) :Y 

* TAN (135 * C) : GOSUK 10 00 
80 HPLOT J 27 + XT, 95 + YT 
90 FOB TH • 1.35 TO 240 STEP 5 
105 GOSUB 1000 
110 HPLOT TO 127 + XT, 95 + YT 

130 END 




APLICACOES PRATICAS 



Tod as essas curvas podem ser usadas 
de alguma forma pratica. 

O circulo tem tantas aplicacoes que 
nem todas podem ser tistadas. A roda 
e um exemplo dbvio, assim como a bo- 
la tambem o e para a esfera. As esferas 
(ou formas aproximadas) aparecem com 
freqiiencia na natureza. Os exemplos 
vao desde laranjas ate planetas. Mas elas 
raramente sao perfeitas, devido a acao 
da gravidade, ventos ou outras forcas. 
Um planeta rodando ao redor de uma 
estrela poderia ter uma drbita circular, 
apesar de ser mais provavel que ela fos- 
se eliptica. 

As aplicacoes para o circulo sao tao 
amplas como a determinacao do menor 
custo de transporte para um produto 
que pode ser comprado em dois lugares 
diferentes. Suponhamos, por exemplo, 
que voce queira comprar um rnodelo de 
computador vendido pelas firmas A e B, 
que estao distante 300 km enire si. Su- 
ponhamos ainda que a firma A envie o 
computador por um servico especial de 
entrega a um custo de um cruzado por 
km, enquanto a firma B o faca em seu 
proprio caminhao, ao custo de cinquen- 
ta centavos por km. E muito simples 
marcar num mapa a regiao em que e 
mais barato comprar de A ou de B, A 
ideia e unir por meio de uma linha to- 
dos os pontos onde os custos sao iguais. 
Neste caso, devemos definir os lugares 
em que a distancia ate B seja o dobro 
da distancia ate A. 

Um desses pontos fica na linha que 
liga as duas firmas, a 100 km de A e 200 
km de B. Outro ponto fica na mesma 
linha, a 300 km de A, no sentido opos- 
to a B. Se todos esses pontos forem uni- 
dos, teremos um circulo de raio igual a 
200 km, como se ve na figura 2. Se vo- 
ce vive dentro do circulo, e mais barato 
comprar de A; se vive fora, e mais com- 
pensador comprar de B. 

A elipse tambem tem aplicacoes pra- 
ticas. fi possivel, por exemplo, colocar 
uma elipse em tal posicao que sua som- 
bra, projetada sobre uma superffcie pla- 
na, assuma a forma de um circulo per- 
feito. Essa propriedade pode ser usada 
em valvulas de dutos circulares, onde 
uma aba eliptica e usada para controlar 
o fluxo de liquidos ou gases, Ao atingir 
determinado angulo, a aba se encaixa 
perfeitamente no duto, bloqueando o 
fluxo da substancia. A parabola descre- 
ve a curva tracada por um projetil. Mas 
certos corpos celestes, como os cometas, 
podem tambem viajar em 6rbitas para- 
bolicas em torno do Sol e de outras es- 
trelas. 




PARABOLAS E HIPERBOLES 

Os programas deste artigo foram 
concebidos de modo a explorar da me- 
Ihor maneira a tela do seu micro. Ao 
usar essas formas em programas, o fa- 
tor de escata M deve ser alterado para 
que sejam obtidas curvas do tamanho 
adequado. 

Ao rodar parabolas e hiperboles, e 
necessario tomar certos cuidados pa- 
ra que os pontos das extremidades das 
curvas nao caiam fora da tela. Assim, 
altere o fim do laco FOR. ..NEXT da li- 
nha 40 do programa da parabola e das 
linhas 40 a 90 do programa da hiper- 
bote. O limite exato devera ser encon- 
trado pelo metodo de tentativa e erro. 



Por outro lado, raios de luz e caJor 
paralelos ao eixo de uma parabola sao 
refletidos de modo a passar pelos focos. 
Isso acontece nas duas direcoes. Assim, 
um filamento colocado no foco produ- 
zira um feixe paralelo de luz, como os 
usados em farois de automoveis. Na ou- 
tra direcao, os raios solares podem ser 
concentrados no foco de uma parabo- 
la, produzindo altissimas temperaturas; 
este e o princfpio de funcionamento dos 
fornos solares. 

Na pratica, os refletores utilizados 
para tais fins sao paraboloides tridimen- 
sionais. Estes tambem sao usados em 
outras aplicacoes, como antenas para re- 
cepgao e transmissao de ondas de radio, 
acess6rios de sistemas de televisao e te- 
lefonia etc. 

Uma caracteristica importante da hi- 
perbole e — como ja foi dito — sua 
constituicao em duas partes. Os sistemas 
de radar para navegacao valem-se des- 
sa qualidade, funcionando com duas es- 
lacoes. Uma delas transmite um sinal, 
que e retransmitido imediatamente pe- 
la outra estacao. Ao receber os dois si- 
nais, o operador de um navio nas pro- 
ximidades calcula o tempo entre as duas 
emissoes. Se o barco se move de manei- 
ra a manter constante o tempo entre as 
chegadas, e porque tem um curso hiper- 
bolico, como e mostrado na figura 3. Se 
o operador tambem receber sinais de ou- 
tras duas estacoes e ealcular o tempo en- 
tre a chegada dos sinais, tera outra hi- 
perbole; a intersecao das duas dara a po- 
sicao do navio. 
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VPEEK E VPOKE 



Ate agora, usamos bastante os co- 
mandos VPEEK e VPOKE para obter 
efeitos graficos, mas nunca na progra- 
macao de sprites. Para fazer isso, pre- 
cisamos conhecer bem a organizacao da 
memoria de video do MSX, a charnada 
VRAM. A estrutura dessa mem6ria, 
bem como os principles basieos dos co- 
mandos VPEEK e VPOKE, foi explica- 
da no artigo Os Comandos PEEK e PO- 
KE {pagina 261). 

A VRAM e uma memoria indepen- 
dente, com capacidade de armazenar ate 
16 kbytes. Ela 6 uiilizada por um chip 
especial, que se dedica integralmente ao 
controle da tela: o VDP — Video Dis- 
play Processor. 

O MSX pode dispor da tela de quatro 
formas: texto em quarenta colunas, tex- 
to em 32 cofunas, graficos em alta reso- 
lucao e graficos em baixa resolucao. E 
o VDP que determina o tipo de tela que 
esta sendo mostrado no video. Quando 
estamos programando em BASIC, o co- 
mando SCREEN ajusta o VDP para 



mostrar o tipo de tela desejado. 

Os diferenies tipos de tela nada mais 
sao que maneiras diversas de interpre- 
ts! os numeros que estao na VRAM. Pa- 
ra fazer essa interpretacao, o VDP di- 
vide a memoria de video em regioes que 
sao denominadas tabelas. Cada tabela 
tern sua funcao. No modo texto de qua- 
renta colunas, por exemplo, existe uma 
tabela de nomes, cuja funcao consiste 
em armazenar os codigos ASCII das le- 
tras que aparecem no texto. Uma vez 
que coloquemos um cddigo numa certa 
posicao da tabela de nomes, o VDP uti* 
liza esse valor a fim de encontrar os 
bytes que determinam o formato da le- 
tra em outra parte da VRAM (na cha- 
rnada tabela de padroes). 

Os quatro tipos de tela tern tabelas de 
nomes e tabelas de padroes, que funcio- 
nam de maneira parecida. Para que nao 
seja preciso memorizar os enderecos ini- 
ciais de cada uma delas na VRAM, em- 
prcgamos variaveis do sistema chama- 
das BASE, que descobrem o valor cor- 



Voce pode criar e movimentar sprites 
com a ajuda dos versateis 
comandos VPOKE e VPEEK. Mas, para 
isso, precisa conhecer prime iro a 
organizacao de memoria de video do MSX. 



reto para n6s. Esses valores estao con- 
tidos no VDP; em outro artigo apren- 
deremos a modifica-los. 

No modo texto de quarenta colunas 
— SCREEN 1 — nao podemos modifi- 
car a cor de letras individuals nem usar 
sprites. Nos outros tres tipos de tela exis- 
te uma porcao da VRAM, dedicada a 
controlar os efeitos cromaticos, charna- 
da tabela de cores. Essa tabela assume, 
em cada tela, um tamanho e uma posi- 
cao dtferentes. 

Neste artigo, mostraremos a organi- 
zacao de duas outras tabelas da VRAM, 
existentes nos tipos de tela que permi- 
tem a programacao de sprites: a tabela 
de atributos de sprites e a tabela de pa- 
droes de sprites. Mais adianie, tratare- 
mos da organizacao do VDP. 



UM BANCO DE SPRITES 



Antes de prosseguir no estudo da 
VRAM, convent recordar como o com- 
putador armazena o padrao de um spri- 



h 




0RGANI2 A CA0 DA MEMpRIA 
DE VIDEO 



ONDE SAO ARMAZENADOS 



OS PADROES DOS SPRITES 
COMO COMPUTADOR 



MOVIMENTA SPRITES 



UM BANCO DE SPRITES EM 



LINHAS DATA 



CRIE SPRITES COM EDITOR 
" DE BLOCOS GRAFCOS" 



te. Ate agora, quando quisemos definir 
o pradrao de urn sprite, usamos um 
cordao para armazenar os bytes corres- 
pondentes a cada linha com oito pon- 
tos do sprite. Se voce consultar o artigo 
Crie Sprites no MSX (pagina 188), vera 
que a ordem de interpretacao dos bytes 
tem a seguinte correspondencia com o 
padrao de um sprite de 16 x 16 pontes: 

Linha 1: BYTE I BYTE 17 
Linha 2: BYTE 2 BYTE 18 
Linha 3: BYTE 3 BYTE 19 
Linha 4: BYTE 4 BYTE 20 



Para entender como os sprites sao ar- 
mazenados e movimentados na rnemd- 
ria de video, precisamos de alguns exern- 
plos desses blocos graficos. Neste arti- 
go, como de costume, trataremos de 
sprites de 16 x 16 pontos, salvo mencao 
em contrario. Digite o programa: 

L0 CLEAR 200,LHDOQO 
20 FOR 1-0 TO 255 



30 READ A3: POKE 1 HD1 00 + 1 . VAL t "&. 

B"+A$) 

40 POKE 1HE100 + I ,16+15 

50 NEXT 

1000 DATA 



1010 

10 20 
1030 
1040 
tO 50 
1060 
L070 
1080 
109G 
1100 
I I 10 
1 I ?.a 
1 I 10 
1 140 
I I Ml 
] 1 m: 
I I /() 
] 180 
] 190 
1 ZOO 
I / I 
12/0 
I 2 to 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
I IATA 
DATA 
DATA 
DATA 



00000000 
00000000 
00000000 

ooooooou 

00000000 
00000001 
O0OOO0J1 
001111 1 I 
IIIOJQIO 

oi mill 

00000001 

oooooooo 

00000000 

oooooooo 
oooooooo 
oooooooo 

no on ot)(H) 
oooooooo 
oooooooo 

1 t 100 00 
10100000 

1 0000O1 

1 00 00 LI 
M 1 I I 1 J 



)) 



» 



\0 



7: 



/> 



p & 



vV 
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PROGRAMACAO BASIC 



1240 


DATA 


10101001 


12!. 


DATA 


1 Li 1 111 t 


1260 


DATA 


OOJOOOOO 


1270 


DATA 


100 I 0000 


1280 


DATA 


01001000 


L290 


DATA 


OO1U1O0 


1300 


DATA 


00000000 


1310 


DATA 


oooooooo 


1320 


DATA 


00000011(1 


133L 


DATA 


00000000 


1340 


DATA 


00000000 


1.150 


DATA 


OOlillOO 


1360 


DATA 


00100010 


13/0 


DATA 


00100001 


1380 


DATA 


01000001 


1390 


DATA 


01000001 


1400 


DATA 


10100010 


1410 


DATA 


10000000 


1420 


DATA 


11111101 


1430 


DATA 


00110010 


1440 


DATA 


00011101 


1450 


DATA 


00000011 


1460 


DATA 


oooooooo 


L470 


DATA 


00000000 


1480 


DATA 


oooooooo 


1490 


DATA 


oooooooo 


1500 


DATA 


oooooooo 


1510 


DATA 


oooooooo 


1520 


DATA 


oooooooo 


1530 


DATA 


OOOOOOOO 


1540 


DATA 


11110000 


1550 


DATA 


001U1000 


1560 


DATA 


OOOiOlOO 


1570 


DATA 


10 10 10 


1580 


DATA 


01010101 


1590 


DATA 


10111111 


1600 


DATA 


01111000 


1610 


DATA 


10000000 


1620 


DATA 


oooooooo 


1630 


DATA 


oooooooo 


1640 


DATA 


oooooooo 


1650 


DATA 


oooooooo 


1660 


DATA 


oooooooo 


1670 


DATA 


00000001 


1680 


DATA 


oooooooi 


1640 


DATA 


oooooooi 


170 


DATA 


1110000J 


1710 


DATA 


01010001 


1720 


DATA 


001010 LO 


1730 


DATA 


00100100 


1740 


DATA 


00100000 



1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
194 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



00101000 
01010100 
11100110 
00000101 
00000110 
00010010 
OOOOOOOO 
00001001 
00000010 
10000000 
01000100 
00100001 
11111000 
00000100 
00110010 
OOOOOOOI 
00111111 
01000000 
0011U00 
1 111 1000 

oooooooo 

00001U0 
00000011 
00011011 
01101111 
10000111 
10011111 
OO1100U 
01100101 
01000101 
01000001 
OOOOOOOI 
OOOOOOOI 
OOOOOOOI 
00000011 
00111111 

11111111 
oooooooo 

01111100 
11100110 
11U1000 
1111] 1 00 
L1100L00 
11110010 
10011001 
10000100 
10000100 
10000000 
11000000 
11 000000 
11000000 



2260 


DATA 


11111100 


2270 


DATA 


U1U111 


2280 


DATA 


000001U 


2290 


DATA 


ooiiiiii 


2300 


DATA 


oooooooo 


2J10 


DATA 


oooooooi 


2320 


DATA 


00000010 


Z330 


DATA 


00000100 


2340 


DATA 


00001000 


2350 


DATA 


00010000 


2360 


DATA 


00111111 


2370 


DATA 


01111111 


2380 


DATA 


oooooooo 


2390 


DATA 


0111U11 


2400 


DATA 


00100000 


2410 


DATA 


00011000 


2420 


DATA 


0000011 1 


2430 


DATA 


oooooooo 


2440 


DATA 


10000000 


2450 


DATA 


LOO000O0 


2460 


DATA 


10000000 


2470 


DATA 


11000000 


2480 


DATA 


11100000 


2490 


DATA 


10110000 


2500 


DATA 


10011000 


2510 


DATA 


10000100 


2520 


DATA 


10000010 


2530 


DATA 


11111111 


2540 


DATA 


10000000 


2550 


DATA 


1U11LU 


2560 


DATA 


00110010 


2570 


DATA 


01100100 


2580 


DATA 


11110000 


2590 


DATA 


oooooooo 


2600 


DATA 


oooooooo 


2610 


DATA 


oooooooo 


2620 


DATA 


oooooooo 


2630 


DATA 


oooooooo 


2640 


DATA 


oooooooo 


2650 


DATA 


oooooooo 


2660 


DATA 


oooooooo 


2670 


DATA 


oooooooo 


2680 


DATA 


oooooooo 


2690 


DATA 


oooooooo 


2700 


DATA 


00001100 


2710 


DATA 


00011111 


2720 


DATA 


0011111 1 


2730 


DATA 


011L1111 


2740 


DATA 


111 1 1111 


2750 


DATA 


11111111 


2760 


DATA 


oooooooo 








2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

28S0 

2860 

2870 

2880 

2690 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

30 30 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

32 70 



DATA 
DATA 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00010000 
00111000 
01113.100 
11111100 
1111L110 
11111110 

1 1 J 1. 1 1 1 1 
uiiuii 
11 II 1111 

00000000 
00000000 
0O00U0GO 

oooooooo 

00000011 
00000111 
000001 10 
OOOCOOIO 
000O011 1 
0Q00O11 1 
00000111 
111111 LI 
00111111 
00001111 
00000000 
00000000 

oooooooo 
oooooooo 
oooooooo 
oooooooo 
oooooooo 

10000000 

oooooooo 
oooooooo 
oooooooo 

11000000 
01000000 
10111111 

lioiiioa 

11100000 
00001000 
00000100 
00000111 
O00100O1 
00111101 
01001 101 



3 28 


DATA 


01101101 


3290 


DATA 


01101101 


3300 


DATA 


01101101 


3310 


DATA 


00101101 


3320 


DATA 


00011101 


3330 


DATA 


00001101 


3340 


DATA 


00000110 


3350 


DATA 


00000001 


3360 


DATA 


00000111 


3370 


DATA 


00000100 


3380 


DATA 


00000100 


3 390 


DATA 


00000011 


3400 


DATA 


11000000 


3410 


DATA 


00010000 


34 20 


DATA 


011 11000 


3430 


DATA 


01 100100 


3440 


DATA 


01101100 


3450 


DATA 


01101L00 


3460 


DATA 


01101100 


34 70 


DATA 


01101,000 


3480 


DATA 


on ioooo 


3490 


DATA 


on.ooooo 


3500 


DATA 


11000000 


3510 


DATA 


oooooooo 


3520 


DATA 


11000000 


3530 


DATA 


01000000 


3 54 


DATA 


O1OO00O0 


3550 


DATA 


10000000 



Esse programa cria urn banco de spri- 
tes no topo da memoria. Os formatos 
das figuras podem ser observados nos 
niimeros binarios contidos nas linhas 
DATA; basta lembrar que os "1" cor- 
respondem a pontos "acesos" e os "0", 
a pontos "apagados" na tela. Note a or- 
dem dos bytes que compoem o padrao 
do sprite. Ela e exatamente aquela a que 
fizemos referenda: primeiro os dezesseis 
bytes da metade esquerda e depois os da 
metade direita. 

A linha 10 protege o topo da memo- 
ria, onde coloca os padroes. O endere- 
co usado e o mesmo dos bancos de blo- 
cos criados pelo editor dos artigos Ge~ 
ragao de Biocos Graficos (1 e 2), 

Os lacos FOR... NEXT entre as linhas 
20 e 50 usam o comando READ para 



obter os niimeros binarios das linhas 
DATA e POKE para colocar os valores 
correspondentes no topo da memoria. 
A linha 40 cuida das cores dos padroes 
— preto sobre fundo branco — para que 
possamos ve-los atraves do editor. 

Essa utilizacao do editor de biocos 
para observar os padroes criados nao e 
obrigatdria. O BASIC aqui apresenta- 
do foi criado com objetivos didaticos: 
ele permite compreender a organizacao 
da VRAM com o auxt'lio do programa 
do final do artigo. As figuras geradas 
por ele — barcos, peixes e uma ilha de- 
serta, entre outros — serao ultlizadas em 
outro artigo para animar urn quadro na 
tela do computador. 



USE EDITOR DE BL0C0S GRAFICOS 



Ha dois caminhos para utilizar o edi- 
tor de biocos graficos com esse con jun- 
to de sprites. O primeiro e mais indica- 
do para principiantes, Depois de execu- 
tar e gravar o programa acima em fita, 
grave o banco de sprites por intermedio 
do comando: 

BSAVE' CAS : SPRITE' , S.HD100 ,*.HEFFF 

Carregue entao o programa editor de 
biocos graficos do cassete e execute-o. 
Aperte a tecla T e responda L a pergunta 
do computador: "(S)AVE ou (L)OAD?". 
Fosicione a fita na posicao em que gra- 
vou o banco de sprites, aperte ENTER 
e, em seguida, pressione o botao 
"PLAY" do gravador. 

O segundo caminho e mais indicado 
para aqueles que estao acostumados 
com o uso do editor: depois de execu- 
tar o programa apresentado linhas atras, 
carregue o editor de biocos da fita e 
execute-o tambem. (O banco de sprites 
esta na posicao correta, so que nao po- 
demos ve-Io. E possivel, contudo, recu- 





■ 



perar os padroes com auxilio da tecla 
R.) As posicoes ocupadas pelos blocos 
vao de a 31. 

Os blocos de 8 x 8 pontos que corn- 
poem os sprites estao ordenados de 
acordo com as exigencias do VDP, 



SPRITES NA VRAM 



Nos tipos de tela que permitem o uso 
de sprites, certas porcoes da VRAM sao 
reservadas para controlar sua exibicao. 
Para exemplificar, recorrererrios a tela 
de 32 colunas. 

O MSX s6 perrnite a exibicao de 32 
sprites ao mesmo tempo. Cada urn des- 
ses sprites tern suas caracteristicas arma- 
zenadas numa tabela de atributos de 
sprites. Sao quatro os atributos de um 
sprite: suas coordenadas X e Y, seu no- 
me e sua cor. Dessa forma, cada sprite 
necesstta de quatro bytes para seus atri- 
butos, e a tabela de atributos terA um 
comprimento de 128 bytes. 

A prioridade de um sprite e determi- 
nada pela sua posicao na tabela de atri- 
butos. Terao prioridade os sprites que 
ocuparem as primeiras posicoes na ta- 
bela; ou seja, se dois sprites estiverem 
na mesma posicao, scri mostrado aque- 
le que aparecer primeiro na tabeta. As 
coordenadas X e Y determinant o lugar 
do sprite na tela. Elas correspondent ao 
canto superior esquerdo do sprite, Seus 
valores devem permanecer entre e 255 . 
Quando Y e maior que 191, o sprite de- 
saparece na borda inferior da tela. Se Y 
for 208, todos os sprites com priorida- 
de inferior desaparecerao; e, se for 209, 
o sprite em questao desaparecera. 

E importante prestar atencao aos li- 
mites impostos a coordenada X. Quan- 
do utilizamos a instrucao PUT SPRITE, 
a coordenada X pode ter valores nega- 



tivos, Contudo, se tentarmos colocar em 
uma posicao da VRAM um valor fora 
da faixa que vai de a 255, o computa- 
dor emitira uma mensagem de erro. 

Infelizmente, um sprite s6 pode ter 
uma cor. Esta corresponded aos "pon- 
tos acesos" do padrao, ou a cor de fren- 
te, que e determinada pelos quatro bits 
menos significativos do byte de cor, na 
tabela de atributos. Os codigos das co- 
res sao aqueles que voce ja eonhece. O 
bit 7 dessa posicao controla os valores 
negativos de X, quando utilizados em 
uma instrucao PUT SPRITE, ou seja, 
ele sera "aceso" se X estiver entre e 
-32. Essas coordenadas negalivas per- 
mitem que o sprite desapareca no canto 
esquerdo da tela, podendo reaparecer no 
direito. 

O nome do sprite indica ao VDP on- 
de o padrao do sprite pode ser encon- 
trado na tabela de padroes de sprites. 

O endereco inicial da tabela de atri- 
butos de sprites esta em BASE(8) na te- 
la de 32 colunas; em BASE(O) na tela 
de alta resolucao; e em BASE(18) na tela 
multicolor. 

O MSX perrnite que criemos ate 64 
sprites de 16 x 16 pontos, embora so 32 
possam aparecer na tela ao mesmo tem- 
po. Os padroes desses sprites ficam 
guardados na tabela de padroes. Como 
cada sprite precisa de 32 bytes para de- 
fin ir seu padrao, a tabela tern 2048 bytes 
de comprimento. Os padroes definidos 
pelo BASIC SPRITE$(N) sao colocados 
em posicoes diferentes dessa tabela, con- 
forme valor de N. O VDP se baseia 
no nome do sprite que esta na tabela de 
atributos para calcular a posicao em que 
seu formato se encontra na tabela de 
padroes. 

Cada sprite de 16 x 16 pontos neces- 
sita, ao ser programado, de 32 bytes. Se 
preferirmos trabalhar com sprites pe- 
quenos, com 8x8 pontos, cada um de- 



les prccisara de apenas oito bytes para 
armazenar seu padrao, Dessa forma, co- 
mo a tabela de padroes de sprites tem 
2048 bytes de comprimento, podemos 
criar ate 256 sprites pequenos e ate 64 
sprites grandes. 

O endereco inicial da tabela de pa- 
droes de sprites fica em BA5E(9) na te- 
la de 32 colunas; em BASE(14) na tela 
de alta resolucao; e em BASE(19) na tela 
multicolor. 

Quando seu micro padrao MSX es- 
tiver Jigado em um rnodo grafico que 
permita a exibigao de sprites, o VDP 
procurara na tabela de atributos de spri- 
tes os dados necessaries a exibicao dos 
32 sprites ali definidos. De um certo mo- 
do, podemos dizer que o VDP esta sem- 
pre mostrando os 32 sprites na tela; nem 
sempre, contudo, vemos todos os spri- 
tes — seja porque o valor da coordena- 
da Y esta escondendo o sprite, seja por- 
que nao ha nenhum padrao definidona 
tabeta de padroes e todos os pontos dos 
sprites estao apagados. 



UM PROGRAMA DIDATICO 



Para que funcione o programa a se- 
guir — organizado, como o anterior, 
com propositos didaticos — , e necessa- 
tia a presenca de um banco de sprites no 
topo da memoria. Portanto, antes de 
digita-lo, execute o programa anterior, 
apague-o com NEW e so enlao digite e 
execute a nova listagem. 
5 CLEAR 2Q0.S.HDO00 
10 SCREEN 1.2: KEY OFF 
20 COLOR 1,7.7:CLS 
30 ZS="00000000 M :N»0:W-0 
40 A-BASE(8) :GOSUB 3000 
50 VPOKE BASE (6) +4 ,16+9 
55 UPOKE BASE (6)+31, 12*16+12 
60 X-VPEEK(A+4*N+1) : Y-VPEEKCA+4 
*H) :C=UPEEK(A+4*N+3) :NX=VPEEK(A 
+N*4+2) :P-BASE(9)+8*NX 



PROGRAMACAOBAi 




70 G05UB 1000:GOSUB 2000 

80 K$=fNKEYS:IF K3-"" THEN 80 

90 IF KS = "N" AMD N<31 THEM N-N+ 

1;G0T0 60 

100 IF K$="B" AND N>0 THEN N-N- 

l:GOTO60 

HO IF KS="C" THEN C« (C+l )MODl6 

r VPOKE A+4*N+3.C;GOT0 60 

120 IF K$-CHR$C28) AND X<247 TH 

EN X-X+8: VPOKE A+4*N+1 . X : GOTO 6 



130 IF K$-CHR$(29) AND X>7 THEN 

X=X-8:VP0KE A+4*N+l , X : GOTO 60 
140 IF K$=CHR$(31) AND YC247 TH 
EN Y-Y+8: VPOKE A+4*N,Y:G0TO 60 
150 IF KS-CHRSC3Q) AND Y>7 THEN 

Y=Y"8: VPOKE A+4*N,Y:GOT0 60 
160 IF K$-"t" THEN VPOKE AK*N, 
160rGOTO 60 

170 IF K$«"A" THEN VPOKE A+4*N. 
209: GOTO 60 

1B0 IFK$«CHRS(27} THEN W-NOT W li 
GOTO 60 

190 IF K5-"W" AND NX<252THEN NX 
=NX+4: VPOKE A+4*N+2 , NX : GOTO 60 
200 IF K$="Q" AND NX>3 THEN NX- 
NX-4: VPOKE A+4*N+2 , NX : GOTO 60 
210 GOTO 80 
1000 FOR 1^0 TO 9 
1010 LOCATE 0,1+13 
1020 PRTNT RIGHTS (STRSCP+I) .5) i 
- ";RIGHT$(Z3+BIN$(VPEEK(P+I) } , 
8) j 

1030 NEXT I: IF W— 1 THEN 1090 
1040 FOR 1-10 TO 31 
1050 LOCATE 14,1-9 
1060 PRINT P+I;RIGHT3CZS+BINS(V 
PEEKCP+D) ,8) : 
1070 NEXT I 
1080 RETURN 
1090 FOB 1-10 TO 31 
1100 LOCATE 14.1-9 
1110 PRINT 3TRING3t7,3 2) jRICHT$ 
(ZS+BIN$(VPEEK{P+I) ) .8) l 
1120 IF 1-30 THEN I-I+l :GOTO 10 
50 

1130 NEXT I: RETURN 
2000 LOCATE 3,1 
2010 PRINT "SPRITE" iNi 
2020 LOCATE 1,3 
2030 PRINT A+4*N;VPEEK(A+4*N) ;T 



ABC12) ;"Y" 

204 LOCATE 1 ,4 

2050 PRINT A+4*N+1;VPEEK(A+4*N+ 

1) [TAB (12) ;"X" 

2060 LOCATE 1 ,5 

2070 PRINT A+4*N+2;VPEEK(A+4*N+ 

2) 

2080 LOCATE 1,6 

2090 PRINT A+4*N+3i" "jHEX$(VPE 

EK(A+4*N+3J) 

2100 LOCATE 4,8 

2110 PRINT "BASE {8)"; 

2120 LOCATE 4,9 

2130 PRINT BASE (8) 

2140 LOCATE 4,10 

2150 PRINT "BASE (9)": 

2160 LOCATE 4,11 

2170 PRINT BASE (9) 

2180 FOR 1=0 TO 12 

2190 VPOKE BASE (5) +1*32+2. 255 

2200 VPOKE BASE(5)+I*32+1S, 255 

2210 NEXT 

2220 FOR 1-3 TO 14 

2230 VPOKE BASE(5)+I,255 

2240 VPOKE BAHE(5)+I+32*12.255 

2250 NEXT: RETURN 

3000 FOR 1=0 TO 255 

3010 VPOKE BASE (91+1, PEEK (8.HD10 

+ 1) 

3020 NEXT; RETURN 

Ao ser executado, o programs mos- 
tra, no canto superior esquerdo da tela, 
cercado por uma moldura verde, urn 
quadro onde se le "SPRITE 0". Esse 
quadro £ uma imagem da tabela de atri- 
butos de sprites. Nele sao exibidos o en- 
dereco e o conteiido das quatro posicoes 
da VRAM que correspondent ao primei- 
ro sprite da tabela — o sprite 0. Quan- 
to menor o mirnero do sprite, maior se- 
ra sua prioridade, o que da ao sprite ze- 
ro prioridade absoluta. Para que o lei* 
tor se localize na VRAM, os enderecos 
iniciais da tabela de atributos de sprites 
— BA5E(8) — e da tabela de padroes 
de sprites — BASE(9) — tambem sao 
mostrados no quadro. 

Como ja dissemos, o primeiro byte 
corresponde a coordenada Y, Se olhar- 



mos a tela, entenderemos por que o spri- 
te — o aviao — nao esta aparecendo: 
a sua coordenada Y e maior que 191. 
Para faze-lo aparecer, basta pressionar 
L. Fetto isso, surge instantaneamente na 
tela; se observarmos novamente o qua- 
dro de moldura verde, vamos entender 
por que: a coordenada Y do sprite mu- 
dou para 160. 

O sprite pode ser movimentado com 
o auxilio das teclas do cursor. Note co- 
mo as coordenadas vao se modificando 
com o movimento do sprite — a coor- 
denada X e o segundo byte do quadro. 

O terceiro byte mostrado no interior 
da moldura verde corresponde ao "no- 
me" do sprite. Esse valor orienta o VDP 
na busca do padrao do sprite deniro da 
tabela de padroes. 

O valor do nome, multipiicado por 
oito e somado ao endereco inicial da ta- 
bela de padroes — BASE(9) — , fornece 
o endereco do primeiro dos 32 bytes cor- 
respondentes ao padrao do sprite. Sao 
exatarnente estes 32 bytes que estao sen- 
do mostrados no restante da tela. Ali te- 
mos uma imagem da porcao da VRAM 
que contem o padrao do sprite. Os en- 
derecos dos bytes estao em decimal, e o 
seu conteiido, em binario. Veja como os 
"zeros'* e os "uns" desenham exata- 
rnente o perfil do aviao. Confira tam- 
bem o endereco inicial, multiplicando o 
nome por oito e somando o resultado ao 
conteiido de BASE(9). 

Voltando ao quadro de moldura ver- 
de, resta o quarto byte, que correspon- 
de a cor do sprite, em hexadecimal- Po- 
demos mudar instantaneamente a cor do 
sprite pressionando a tecla C. Ligue o 
sprite iO. com a tecla L, movimente-o 
com as setas e veja como sua cor muda 
com a tecla C. Observe atentamente o 
conteudo dos bytes da tabela de atribu- 
tos enquanto a cor e a posicao do sprite 
vao sendo modificadas. 
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Para ver o prdximo sprite na ordem 
de prioridade, aperte a tecla N. Os qua- 
tro bytes seguintes da tabela de atribu- 
tos de sprites aparecerao dentro da mol- 
dura verde e os 32 bytes corresponden- 
ces ao desenho do sprite, junto com seus 
enderecos na tabela de padroes de spri- 
tes, aparecerao no resto da tela. A tecla 
L faz o sprite aparecer, e a tecla A o apa- 
ga da tela, colocando 209 no byte da 
coordenada Y. 

Podemos entao percorrer a tabela de 
atributos de sprites pressionando repe- 
tidas vezes a tecla N. A regiao de inte- 
resse dentro da tabela de padroes de 
sprites tambem e atualizada, Podemos 
iigar, movimentar e mudar as cores dos 
sprites. Depois de usar a tecla N 31 ve- 
zes, chegaremos ao fim da tabela de atri- 
butos. Para voltar, tomando a diregao 
dos sprites com maior prioridade (ou 
menor numero), basta pressionar a te- 
cla B, que tern um efeito inverso ao da 
tecla N. 

Podemos ainda modificar o nome de 
um sprite, alterando a regiao da tabela 
de padroes a que ele se refere. Isso equi- 
vale a trocar o padrao do sprite. Para 
avancar na tabela de padroes, manten- 
do a prioridade do sprite, use a tecla W. 
Se o sprite em questao estiver na tela, 
veremos seu padrao ser substituido por 
outro desenho. Para retroceder na tabe- 
la, use Q. 

As teclas N e B nao modificam ne- 
nhum valor da VRAM; elas apenas mu- 
dam a regiao da tabela de atributos de 
sprites mostrada dentro da moldura ver- 
de. Ja as teclas Q e W modificam o byte 
do nome do sprite, alterando a figura 
que esta sendo mostrada. Por exemplo, 
a tecla W transforma o aviao em uma 
nuvem, e a Q coloca um coqueiro no lu- 
gar onde havia um barco. 

Use o programa para entender a or- 
ganizacao da VRAM. Quando nao hou- 
ver mais duvidas sobre os significados 
de cada endereco, podemos lancar mao 
da tecla ESC, Ela apaga a coluna de en- 
derecos da direita. 

O programa ajuda tambem a ilustrar 
uma limkaeao do uso de sprites: nao e 
possivel inserir em uma mesma linha ho- 
rizontal mais do que quatro sprites, Ten- 
te colocar cinco na mesma linha hori- 
zontal e veja o que acontece. 



C0M0 FUNCIONA PROGRAMA 



A linha 5 mantem protegida a area 
onde foi colocado o banco de sprites. A 
10 seleciona a tela de 32 colunas e spri- 
tes grandes. A 20 seleciona as cores da 
i tela, aiem de limpa-la. 

As linhas 30 e 40 estabelecem os va- 



lores iniciais de algumas variaveis. Z$ 
serve para imprimir ntlmeros binarios, 
N e a posigao do sprite na tabela de atri- 
butos — ou seja, sua prioridade — ( W 
6 um sinalizador que indica se ESC foi 
pressionada, A content o endereco ini- 
cial da tabela. 

A mesma linha 40 chama a sub-rotina 
3000, que e responsavel pela transferen- 
cia do banco de sprites para a tabela de 
padroes. As linhas 50 e 55 modificam as 
cores de dois grupos de caracteres. Os 
caracteres 32 e 255 sao usados para de- 
senhar respectivamente as molduras la- 
ran j a e verde. 

O laco principal do programa come- 
ca na linha 60. Ali sao atualizados os va- 
lores de uma serie de variaveis. X e a 
coordenada X do sprite atual; Yea ou- 
tra coordenada desse sprite; C e a sua 
cor e NX, o seu nome. Todos esses va- 
lores sao obtidos na tabela de atributos 
de sprites por meio de comandos 
VPEEK. P & o endereco inicial da por- 
cao da tabela de padroes onde se encon- 
tra o desenho do sprite atual; seu valor 
e calculado somando-se ao endereco ini- 
cial da tabela de padroes o resultado da 
multiplicacao de oito pelo nome do spri- 
te atual. 

A seguir, a linha 70 chama duas sub- 
rotinas. A que comeca na linha 1000 e 
responsavel peia impressao da imagem 
da tabela de padroes na tela. A da linha 
2000, por sua vez. cuida da impressao 
da imagem da tabela de atributos, jun- 
to com sua moldura verde. 

A linha 80 aguarda que pressionemos 
uma tecla e a serie de instructs IF... 
THEN que se segue executa as fun- 
eoes correspondentes a cada tecla. 

Caso a tecla N tenha sido pressiona- 
da, a iinha 90 modificara o sprite atual, 
passando ao sprite seguinte — de menor 
prioridade. Para fazer isso, basta au- 
mentar o valor da variavel N em uma 
unidade, A linha 100 cuida da tecla B, 
que volta ao sprite anterior, subtraindo 
uma unidade de N. 

A linha 1 10 modifica a cor do sprite 
quando pressionamos a tecla C. A no- 
va cor e obtida somando-se uma unida- 
de a variavel C. A funcao MOD 16 e uti- 
lizada para manter o cddigo da cor en- 
treOe 15. C + l MODlfieo resto dadi- 
visao do codigo da nova cor por 16. O 
codigo da nova cor e colocado na tabe- 
la de atributos por VPOKE. 

As linhas 120 e 1 30 cuidam do movi- 
mento horizontal do sprite. Conforme 
as teclas "seta para a esquerda" e "se- 
ta para direita" sao presssionadas, o va- 
lor da variavel X aumenta ou diminui 
oito unidades. Note que as condicoes 
AND X < 247 e X > 7 evitam que o spri- 
te ultrapasse os limites da tela. A nova 



coordenada X e" colocada na tabela de 
atributos por VPOKE. 

As linhas 140 e 150 cuidam do movi- 
mento vertical de maneira anaUoga. A li- 
nha 160 "liga" o sprite quando L e pre- 
cionada. Isso e feito com VPOKE, que 
coloca o valor 160 na posicao da tabela 
de atributos que corresponde a coorde- 
nada Y. A linha 170 apaga o sprite ao 
toque da tecla A. Para obtermos esse 
efeito, a coordenada Y e modifkada pa- 
ra o valor 209, com VPOKE. A linha 
180 detecta a tecla ESC, modificando o 
valor do sinalizador W. 

As linhas 190 e 200 alteram o valor 
do byte que corresponde ao nome do 
sprite atual. A tecla Q diminui o nome 
em quatro unidades e a tecla W o au- 
menta na mesma medida. O nome deve 
ser sempre multiplo de4 quando se tra- 
ta de sprites grandes. £ que um padrao 
de sprite tern 32 bytes. Como o nome e 
multiplicado por oito para calcular a po- 
sicao do padrao na tabela, se o aumen- 
tarmos em quatro unidades, a posicao na 
tabela avancara 8 x 4 = 32 unidades, 
passando para o padrao seguinte. Se o 
usuario pressionar qualquer outra tecla 
diferente das meneionadas, a linha 210 
retornara a linha 80. 

A sub-rotina da linha 1000 cuida da 
impressao dos vat ores contidos na tabela 
de padroes. O laco FOR.. .NEXT entre 
as linhas 1 000 e 1030 imprime os dez pri- 
meiros enderecos de interesse no canto 
inferior esquerdo da tela. 

A seguir, conforme o valor de W, sao 
impressos os outros 22 enderecos. Se W 
for 0, o laco entre as linhas 1040 e 1070 
imprimira tanto os enderecos quanto 
seus conteudos. Se W for 1, o laco en- 
tre as linhas 1090 e 1 130 imprimira so- 
mente os conteudos, preencnendo o es- 
paco antes ocupado pelo endereco com 
espacos cor-de-laranja. 

Os enderecos sao impressos com mi- 
meros decimais; os conteudos aparecem 
em binario. A funcao BINS calcula o va- 
lor binario; a funcao RIGHTS, junta- 
mente com a variavel Z$, faz com que 
sejam impressos exatamente oito digitos 
binarios por endereco. A funcao 
STRINGS serve para imprimir sete es- 
pacos cor-de-laranja, A sub-rotina da li- 
nha 2000 cuida do quadro com moldu- 
ra verde e do seu conteudo. Os dois la- 
cos FOR... NEXT das linhas entre 2180 
e 2250 desenham a moldura, que e com- 
posta por caracteres de codigo ASCII 
255, No restante da rotina, LOCATE e 
utilizada juntamente com PRINT para 
escrever os enderecos, conteudos e suas 
legendas nas posigoes adequadas. 

Os valores dos quatro bytes do sprin- 
te atual sao obtidos na tabela de atribu- 
tos por meio do comando VPEEK. 



AQUt 




rAfic 

EM AVALANCHE 




JUNTE AS POR C OES DO 
VIDEOGAME 



OEFINA A FORMA DOS BLOCOS 



GRAFICOS 



NAO GRAVE BYTES A MAIS 



A procura do lanche roubado leva nosso 
indigitado her6i a enfrentar 
novos obstaculos, Agora, ele precisa 
de uma montanha para escalar. 
Use biocos grdficos para construl-la. 



Que nao seja o Everest, nem tampou- 
co o Aconcagua. Nossa montanha ha de 
ser modesta e simples: urn mero acidente 
geografico. Mas que represente um obs- 
taculo a transpor, um desafio a veneer. 
Que Willie, ao ve-la, nao resista ao im- 
pulso de escala-la. 

Para coloca-la na tela, preeisamos 
criar uma serte de blocos graficos. Mais 
uma vez, usaremos um programa BA- 
SIC para colocar na memoria a tabela 
com os padroes dos blocos. Nao sera 
possivel (por enquanto) ver os graficos 
na tela de alta resolugao — a montagem 
do cenario e tarefa para uma rotina em 
codigo que sera abordada no pr6ximo 
artigo. Os usuarios do Spectrum e do 
MSX, contudo, poderao ter uma ideia 
dos blocos, olhando o padrao dos bits 
nas linhas DATA. Neste estagio, tudo 
o que voce deve fazer e digitar e exeeu- 
tar o programa BASIC e gravar os c6- 
digos resultantes em fita. 

A esta altura, temos varios pedagos 
de videogame gravados separadamente. 
Chegou o momento de junta-los. 



Preeisamos, em primeiro lugar, de- 
finir o formato dos blocos graficos uti- 
lizados no jogo — nuvens, gaivotas, pe- 
dras que rolam, buracos, cobras vene- 
nosas, lanche para um piquenique na 
relva, eo proprio Willie, nosso desven- 
turado heroi. So esses caracteres ja da- 
riam muitos bytes, mas, para suavizar 
o processo de animacao, todas as figu- 
ras moveis serao desenhadas em varias 
posicoes, o que aumenta ainda mais os 
dados. Alem disso, empregaremos sal- 
tos de meio caractere e alternaremos os 
blocos para dar a impressao de movi- 
mento continue. 

5 CLEAR 56999 
10 FOR n=57000 TO 57327: ftEAD 
a: LET sS=STR$ a: POKE n.VAL 




("BIN"+a$> : NEXT 

9010 UATA 0Q0L1Q00 

9011 DATA OQllllOO 

9012 DATA 00 J 11100 
901 J DATA 00011000 
9014 DATA 00111100 



9015 
90J 6 
9017 
9018 
9019 
9020 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



00111100 
QHllllDO 
00111100 
0011 1100 
001 1 1100 
00011000 
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902J DATA 00011000 


9094 DATA 10000000 


9167 DATA 00000000 


9022 DATA 00011000 


9095 DATA 11000000 


9168 DATA 0O000000 


9023 DATA 00011000 


9096 DATA 11000000 


9169 DATA 00000000 


9024 DATA 00011000 


9097 DATA 10000000 


9170 DATA 0000 0000 


9025 DATA 00011110 


9098 DATA 00000000 


9171 DATA 00000000 


9026 DATA 00000001 


9099 DATA 00000001 


9172 DATA 10000000 


902 7 DATA 00000011 


9100 DATA 00000001 


9173 DATA 01000000 


9028 DATA 000000 I 1 


9101 DATA 00000001 


9174 DATA 01011100 


9029 DATA 00000001 


9102 DATA 00001110 


9175 DATA 00100010 


9030 DATA 0000O000 


9103 DATA 00000000 


9176 DATA 00000010 


9031 DATA 00000001 


9104 DATA 00000001 


9177 DATA 00000O10 


90i2 DATA 00000001 


9105 DATA 00000010 


9178 DATA 10000000 


90.13 DATA 00 000001 


9106 DATA 00000000 


9179 DATA 01000000 


90.14 DATA 10000000 


9107 DATA 00000000 


91B0 DATA 01111100 


9035 DATA U 000000 


9108 DATA 00000000 


9161 DATA 00000010 


9036 DATA 1 1000000 


9109 DATA 11100000 


9182 DATA 00000010 


90.17 DATA 10000000 


9110 DATA 00000000 


9183 DATA 00000001 


9038 DATA 00000000 


9111 DATA 00000000 


9164 DATA 00000000 


90 39 DATA 00 00 00 


9112 DATA 10000000 


9185 DATA 00000000 


9040 DATA 00000000 


9113 DATA 01000000 


9186 DATA 00000000 


9041 DATA 111 00000 


9114 DATA 00000100 


9187 DATA 00000000 


904 2 DATA 00 01 J 10 


9115 DATA 00001000 


9188 DATA 00000000 


9043 DATA 00000000 


9116 DATA 00000100 


9189 DATA 00000100 


9044 DATA 0000000] 


9117 DATA 00 00 000 


9190 DATA 00001010 


9045 DATA 00000010 


911B DATA 00000000 


9191 DATA 00010001 


9046 DATA 00 00100 


9119 DATA 00000000 


9192 DATA 11100000 


9047 DATA 00001000 


9120 DATA 00000000 


9193 DATA 00000000 


904 6 DATA 0000100 


9121 DATA 00000000 


9194 DATA 00000010 


9049 DATA 00000000 


9122 DATA 001 00000 


9195 DATA 00000100 


9050 DATA 00000000 


9123 DATA 00100000 


9196 DATA 00001000 


9Q51 DATA 00000000 


9124 DATA 00110000 


9197 DATA 00000100 


9052 DATA 10000000 


91.25 DATA 00000000 


9198 DATA 00000100 


9053 DATA 01000000 


9126 DATA 00000000 


9199 DATA 00000100 


9054 DATA 00100000 


9127 DATA 00000000 


92 00 DATA 1111100 


9055 DATA 00 100000 


9128 DATA 00000000 


9201 DATA 00000000 


9056 DATA 001 10000 


9129 DATA 00 00 00 


9202 DATA 00000000 


9057 DATA 00000000 


9130 DATA Q00T1100 


9203 DATA 00000000 


9058 DATA 00000000 


9131 DATA 0CU11110 


9204 DATA 01111000 


9059 DATA 00000000 


9132 DATA 01111111 


9205 DATA 10000110 


9060 DATA 00000000 


9133 DATA 11111111 


9206 DATA 00000001 


9061 DATA 00000000 


9134 DATA 11111111 


9207 DATA 00000001 


9062 DATA 00011000 


9135 DATA 11111110 


9208 DATA 00000000 


9063 DATA 00111100 


9136 DATA U 111100 


9209 DATA 00000000 


9064 DATA 00111100 


9137 DATA 00111000 


9210 DATA 00O00000 


9065 DATA 00011000 


9136 DATA 00000011 


9211 DATA 00000000 


9066 DATA 0000 00 00 


9139 DATA 0OOO0U1 


9212 DATA OOOUllO 


9067 DATA 0001 0000" 


9140 DATA 0000J J 11 


9213 DATA 01100001 


906B DATA 0001O000 


9141 DATA 00001111 


9214 DATA 10000000 


9069 DATA 0001 11 10 


9142 DATA OOOOllll 


9215 DATA ] 0000O0O 


9070 DATA 11100000 


9143 DATA 00000 111 


9216 DATA 00000000 


9071 DATA 00000000 


9144 DATA 00000011 


9217 DATA 00000000 


9072 DATA 00001 ) 00 


9145 DATA 00000001 


9218 DATA 00000000 


9073 DATA 00100 LOO 


9146 DATA 10000000 


9219 DATA 00000000 


90 74 DATA 01000010 


9147 DATA 11000000 


9220 DATA 00000000 


9075 DATA 10000010 


9148 DATA 11100000 


9221 DATA 00000000 


9076 DATA 010000W 


9149 DATA 11110000 


9222 DATA 10000] ]1 


9077 DATA 00000000 


9150 DATA 111100 00 


9223 DATA 01111001 


9078 DATA 00000000 


9151 DATA 11110000 


9224 DATA 00000000 


9079 DATA 00000000 


9152 DATA 11100000 


9225 DATA 00000000 


9080 DATA 000 00 000 


9153 DATA 11000000 


9226 DATA 00000000 


9081 DATA 00000000 


9154 DATA 000O0000 


9227 DATA 00000000 


9082 DATA 00000000 


9155 DATA 00000000 


9228 DATA 00000000 


9083 DATA 00000000 


9156 DATA 00000111 


9229 DATA 00000000 


9064 DATA 00000000 


9157 DATA 00011O00 


9230 DATA 11100001 


9085 DATA 00000000 


9158 DATA 00100000 


9231 DATA 10011110 


9086 DATA 00000001 


9159 DATA 01000000 


9232 DATA 00000000 


9087 DATA 00000011 


9160 DATA 01000000 


9233 DATA 00000000 


9086 DATA 00000011 


9161 DATA 10000000 


9234 DATA 00100010 


9089 DATA 00000001 


9162 DATA 00000000 


9235 DATA, 00010100 


9090 DATA 00000000 


9163 DATA 00000000 


9236 DATA 00001000 


9091 DATA 00000000 


9164 DATA 00011111 


9237 DATA 00001000 


9092 DATA 00000000 

9093 DATA 00000000 


9165 DATA 10100000 


9238 DATA 00001000 


9166 DATA 11000000 


9239 DATA 00001000 









9240 
9241 
9242 
9243 
9244 
9245 
9246 
9247 
9248 
9249 
9250 
9251 
9252 
9253 
9254 
925S 
9256 
9257 
9258 
9259 
9260 
9261 
9262 
9263 
9264 
9265 
9266 
9267 
9268 
9269 
9270 
9271 
9272 
9273 
9274 
9275 
9276 
9277 
9278 
9279 

9260 
9281 
9282 
9283 
9284 
9ZB5 
9Z86 
928/ 
9288 
9289 
9290 
9291 
9292 
9293 
9294 
9295 
9296 
9297 
9298 
9299 
9300 
9301 
9302 
9303 
9304 
9305 
9306 
9307 
9308 
9309 
9310 
9311 
9312 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



00001000 
00001000 
00011000 
001 11 100 
00110110 
01111110 
01111110 
00111100 

ooonooa 

00011000 
00011000 
00011000 
00001100 
00001100 
00000110 
00000110 
00000011 
00000011 
00000110 
00000L10 
00001100 

ooooiioo 

00011000 
000110U0 
00110000 
00110000 
01100000 

ounoooo 

11000110 
11000011 
01100110 
01101100 
00111000 
00111000 
10000100 
11010110 

11111111 
11111111 
11111111 
11111111 
11111111 
11111111 

00000000 
00000001 
0Q00Q011 
00000111 
00011111 
00111111 
01111111 
llllllll 
00000000 
00000000 

llllllll 
llllllll 

00111100 
00111100 

llllllll 

llllllll 

00000.110 
00001000 
01110110 

llllllll 
llllllll 
llllllll 

01)11110 
00111100 
00010000 
00010000 
0Q010000 
00111000 
00111000 
00111000 
00111000 



9313 
9314 
9315 
9316 
9317 
9318 
9319 
9320 
9321 
9322 
9323 
9324 
9325 
9326 
9327 
9328 
9329 
9330 
9331 
9332 
9333 
9334 
9335 
9336 
9337 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



00111000 

oooinooo 

00111000 
01111100 
00111000 
001 11O00 
0011 1000 
00010000 
00010000 
00000000 

oooooooo 

00000000 

ooiooooo 

01010001 
10001010 
00000100 

oooooooo 
oooooooo 
oooooooo 
oooooooo 

10000010 
OlOOOlOl 
00101000 
00010000 

oooooooo 



Execute o programs e grave a tabela 
resultante com o comando: 

SAVE 'AVAL4* CODE 57QO0.327 



JUNTE OS PEDAC0S 



Longos programas em cbdigo geral- 
mente tern de ser montados por partes. 
lsso e bom para testar as rotinas indivi- 
dualmente, mas tern a desvantagem de 
deixar para o leitor a tarefa de juntar os 
pedacos do programa. O fato de as ro- 
tinas isoladas serem executadas com su- 
cesso nao garante funcionamento do 
programa completo. 

A maior dificuldade surge quando 
uma das paries apaga outra durante a 
montagem. Se voce gravou mais bytes 
do que devia junto com urn dos segmen- 
tos do programa, pode acontecer que 
eles apaguem parte do outro segmento 
adjacente na memdria. Quando gravar- 
mos os c6digos de uma porcao do jo- 
go, usando o monitor de INPUT, deve- 
mos informar o endereco inicial e o nu- 
mero exato de bytes a iransferir para a 
fita. Se utilizarmos o comando SAVE 
do Spectrum devemos recorrer a siniaxe: 

SAVE 'none' CODE 

seguida do endereco inicial, uma virgu- 

ia e o ntimero de bytes a gravar. 

Quando usamos o Assembler para 
montar os programas listados nos arti- 
gos, o endereco inicial e sempre igual a 
origem: o numero que vem apos o falso 
mnemonico org. O proprio Assembler 
cuida de comecar a rotina nesse endere- 
co. Nos programas BASIC que criam ta- 
belas de dados na memdria a partir de 
linhas DATA e usando POKE, o ende- 
reco inicial da tabela pode ser encontra- 



do na pr6pria listagem: valor inicial da 
variavel de controle do laco FOR... 
NEXT responsavel pefa leitura e trans- 
ferencia dos dados para a memdria. 

Calcular o numero exato de bytes a 
serem gravados ja e mais dificil. O en- 
dereco final informado pelo Assembler 
nem sempre e o do final da rotina. Mui- 
tas vezes aquele enderego e apenas o da 
ultima instrucao monlada, que, em va- 
rias listagens, e um rbtulo seguido par 
um asterisco, usado para calculo de sal- 
tos e desvios, e nao correspondendo ao 
final do programa. 

Certos programadores gostam, por 
seguranca, de gravar alguns bytes a 
mais; eles correm o risco, porem, de 
apagar pedacos de outras rotinas no 
processo de montagem do jogo 
completo. 

A maneira mais segura de juntar as 
partes do programa e ler as rotinas no 
gravador, preenchendo a memdria em 
ordem crescente. Porcoes com endere- 
cos iniciais menores devem ser recupe- 
radas primeiro, sendo seguidas sempre 
das rotinas que ocupam as posicoes su- 
cessivas. lsso fara os eventuais bytes gra- 
vados em excesso serem apagados pela 
prbxima rotina (e nao o contrario). 
Alem disso, qualquer instrucao ret, co- 
locada no final de uma rotina apenas pa- 
ra permitir o seu funcionamento isola- 
do, tambem sera apagada. 

Quando todas as rotinas montadas ti- 
verem sido colocadas na memoria e es- 
tiverem funcionando adequadamente, o 
programa resultante deve ser gravado 
inteiro, com um outro nome. Seu ende- 
reco inicial ser£ o da primeira rotina li- 
da na fita e o endereco final sera o en- 
derego final da ultima rotina colocada 
na memoria. Qualquer problema pode 
exigir que as rotinas sejam reunidas no- 
vnmente. Nao se esqueca de gravar as 
listagens Assembly — os programas- 
fonte — , bem como os programas BA- 
SIC que criam as tabelas na memoria, 
pots voce pode precisar repetir o proces- 
so de montagem. 

Se houver qualquer problema com as 
tabelas de dados, podemos montar as 
rotinas em c6digo na ordem citada, e 
executar cada um dos programas BA- 
SIC. Eles devem ser lidos, um a um, no 
gravador, executados, e, em seguida, 
apagados com NEW, Depois disso, o 
proximo programa criador de tabelas se- 
ra lido na fita e o processo se repetira. 



De inicio, e" preciso definir o forma- 
to dos blocos graficos utilizados no jo- 
go — nuvens, gaivotas, pedras que ro- 
lam, buracos, cobras venenosas, gulo- I 
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seimas para urn piquenique, e o prdprio 
Willie. No MSX e mais facil movimen- 
tar figuras usando sprites para imprimir 
suavidade a animate 

As figuras definidas pelo programa 
a seguir tern a estrutura de sprites. Nem 
todas, porem, serao usadas como tal. 
MSX so permits a exibi^ao simultanea 
de 32 sprites; destes, apenas quatro, no 
maximo, podem ocupar a mesma linha 
horizontal. Mas isso poderia fazer o po- 
bre Willie desaparecer da tela. (Imagi- 
ne se houvesse quatro serpentes na mes- 
ma linha horizontal!) 

10 CLEAR 200. -15Z0O 

20 FOR 1=0 TO 639 

30 READ kd:POKE -15200+1 , UAL ("I 

B*+ASJ 

40 NEXT 

9000 DATA 00011000 

9010 DATA 00111100 

9020 DATA 00111100 

9030 DATA 00011000 

9010 DATA 00111100 

9050 DATA 00111100 

9060 DATA 00111100 

9070 DATA 00111100 

9080 DATA 00111100 

9090 DATA 00111100 

9100 DATA 00011000 

9110 DATA 00011000 

9120 DATA 00011000 

9130 DATA 00011000 

9140 DATA 00011000 

9150 DATA 0001] 110 

9160 DATA 0,0,0,0,0,0,0,0 

9170 DATA 0,0.0.0.0,0,0,0 

91BQ DATA 00000001 

9190 DATA 00000011 

9200 DATA 00000011 

9210 DATA 00000001 

9220 DATA 00000000 

9230 DATA 00000001 

9240 DATA 00000001 

9250 DATA 00000001 

9260 DATA 00001110 

9270 DATA 00000000 

9280 DATA 00000001 

9290 DATA 00000010 

9300 DATA 00000100 

93] DATA 00001000 

9320 DATA 00000100 

9330 DATA 00000000 

9340 DATA 10000000 

9350 DATA 11000000 

9360 DATA 11000000 

9370 DATA 10000000 

9380 DATA 00000000 

9390 DATA 00000000 

9400 DATA 00O000O0 

9410 DATA 11100000 

9420 DATA 00000000 

9430 DATA 00000000 

9440 DATA 10000000 

9450 DATA 01000000 

9460 DATA 0010000 

9470 DATA 00100000 

94B0 DATA 00110000 

9490 DATA 00000000 

9500 DATA 0,0.0.0,0,0,0,0 

9510 DATA 0,0,0,0,0,0.0,0 



9520 DATA 00011000 

9530 DATA 00111100 

9540 DATA 00111100 

9550 DATA 00011000 

9560 DATA 00000000 

9570 DATA 00010000 

9580 DATA 00010000 

9590 DATA 00011110 

9600 DATA 11100000 

9610 DATA 000000 00 

9620 DATA 00001100 

9630 DATA 00100100 

9640 DATA 01000010 

9650 DATA 10000010 

9660 DATA 01000011 

9670 DATA 00000000 

9680 DATA 0,0,0,0,0,0,0,0 

9690 DATA 00011100 

9700 DATA 00111110 

9710 DATA 01111111 

9720 DATA 11111111 

9730 DATA 11111111 

9740 DATA 11111110 

9750 DATA 11111100 

9760 DATA 00111000 

9770 DATA 0,0,0,0.0,0,0,0 

9780 DATA 0,0,0,0.0.0,0,0 

9790 DATA 0,0,0,0.0,0,0,0 

9800 DATA 00 0000 11 

9810 DATA 00000111 

9820 DATA 00001111 

9830 DATA 00001111 

9840 DATA 00001111 

9850 DATA 00000111 

9860 DATA 00000011 

96 70 DATA 00000001 

9880 DATA 0,0.0.0.0,0,0.0 

9890 DATA 10000000 

9900 DATA 11000000 

9910 DATA 11100000 

9920 DATA 11110000 

9930 DATA 11110000 

9940 DATA 11110000 

9950 DATA 11100000 

9960 DATA 11000000 

9970 DATA 00000000 

9980 DATA 00000000 

9990 DATA 00000111 

10000 DATA 00011000 

10010 DATA 00100000 

1.0020 DATA 010000 00 

10030 DATA 01000000 

10040 DATA 10000000 

10050 DATA 10000000 

10060 DATA 01000000 

10070 DATA 01111100 

10080 DATA 00000010 

10090 DATA 00000010 

10100 DATA 00000001 

10110 DATA 00000000 

10120 DATA 00000000 

10130 DATA 00000000 

10140 DATA 00000000 

10150 DATA 00011111 

1O160 DATA 10100000 

10170 DATA 11000000 

10180 DATA 00000000 

10190 DATA 00000000 

10200 DATA 00000000 

10210 DATA 00000000 

10220 DATA 00000000 

10230 DATA 00000000 

10240 DATA 00000100 



10250 DATA 00001010 
10260 DATA 00010001 
10270 DATA 11100000 
10260 DATA 00000000 
10290 DATA 00000000 
10300 DATA 00000000 
10310 DATA 10000000 
10320 DATA 01000000 
10330 DATA 01011100 
10340 DATA 00100010 
10350 DATA 00000010 
10360 DATA 00000010 
10370 DATA 00000010 
10360 DATA 00000100 
10390 DATA 00001000 
10400 DATA 00000100 
10410 DATA 00000100 
10420 DATA 00O001O0 
10430 DATA 11111000 
10440 DATA 00000000 
10450 DATA 0,0,0,0.0,0,0,0 
104 60 DATA 0,0,0,0,0,0,0,0 
10470 DATA 00000000 
10480 DATA 00000000 
10490 DATA 01111000 
10500 DATA 10000110 
10510 DATA 00000001 
10520 DATA 00000001 
10530 DATA 00000000 
10540 DATA 00000000 
10550 DATA 0,0,0,0.0,0,0,0 
10560 DATA 000000 00 
10570 DATA 00000000 
10580 DATA 00011110 
10590 DATA 01100001 
10600 DATA 10000000 
10610 DATA 10000000 
10620 DATA 00000000 
10630 DATA 00000000 
10640 DATA 0,0.0.0,0,0.0,0 
10650 DATA 00000000 
10660 DATA 00000000 
10670 DATA 00000000 
10680 DATA 00000000 
10690 DATA 10000111 
10700 DATA 01111001 
10710 DATA 00000000 
10720 DATA 00000000 
10730 DATA 0,0,0,0,0,0,0,0 
10740 DATA 00000000 
10750 DATA OO000000 
10760 DATA 00000000 
10770 DATA 00000000 
107B0 DATA 1110O001 
10790 DATA 10011110 
10800 DATA 00000000 
10810 DATA 00000000 
1082 DATA 0,0,0,0,0,0,0,0 
10830 DATA 00100010 
10840 DATA 00010100 
10850 DATA 00001000 
10860 DATA 00001000 
10870 DATA 00001000 
10880 DATA 00001000 
10890 DATA 00001000 
10900 DATA 00001000 
10910 DATA 00011000 
10920 DATA 00111100 
10930 DATA 00110110 
10940 DATA 01111110 
10950 DATA 01111110 
10960 DATA 00111100 
10970 DATA 00011000 



~ 



11120 

11130 
11140 
11150 
11160 
11170 
11180 
11190 
11200 
11210 
11220 
11230 
11240 
11250 
11260 
11270 
11280 
11290 
11300 
11310 
11320 
11330 
11340 
11350 
11360 
11370 
11380 
11390 
11400 
11410 
11420 
11430 
11440 
11450 
11460 
11470 
11480 
11490 
11500 
11510 
11520 
11530 
11540 
11550 
11560 
11 570 
11580 
11590 
11600 
11610 
116Z0 
1L630 
11640 
11650 
11660 
11670 
11680 
11690 
11700 
10980 
10990 
11000 
11010 
11020 
11030 
11040 
11050 
11060 
11070 
11080 
11090 
11100 
11110 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



00001100 

00011000 

00011000 

00110000 

00110000 

0,0,0,0,0, 

0,0,0,0,0, 

01100000 

01100000 

11000110 

11000011 

01100110 

01101100 

0«U11000 

00011000 

0,0.0,0,0, 

0.0,0,0,0. 

0,0.0,0,0, 

10000100 

11010110 

11111111 
11111111 

11111111 
11111111 
11111111 
11111111 

0,0,0,0,0, 

0,0,0,0,0, 

0,0,0,0,0, 

00000000 

00000001 

00000011 

00000111 

ooouui 

00111111 

01111111 

11111111 

0,0,0,0,0. 
0,0,0,0,0, 
0,0,0,0,0, 
00000000 

00000000 

11111111 
11111111 

00111100 
00111100 

11111111 

1 1 1 1 J 111 

0,0,0,0,0, 

0,0.0,0,0, 
C , , . , , 
00000110 
00001000 
01110110 

11111111 
11111111 

11111111 

01111110 

00111100 

00011000 

0,0,0,0.0, 

0,0,0,0,0, 

00011000 

00011000 

00001100 

00001100 

00000110 

00000110 

00000011 

00000011 

00000110 

00000110 

00001100 



0,0,0 
0,0,0 



0,0,0 

0,0.0 
0,0,0 



0,0,0 
0,0,0 
0.0,0 



0,0,0 
0,0,0 
0,0,0 



0,0,0 
0,0,0 
0.0,0 



0.0,0 
0,0,0 



11710 DATA 0,0,0,0,0,0,0,0 
11720 DATA 0.0,0.0.0,0,0.0 
11730 DATA 0.0,0,0,0,0,0,0 
11740 DATA 00010000 
11750 DATA 00010000 
11760 DATA 00010000 
11770 DATA 00111000 
11780 DATA 00111000 
11790 DATA 00111000 
11800 DATA 00111000 
11810 DATA 00111000 
11920 DATA 0,0,0,0.0,0.0,0 
11830 DATA 0,0.0.0,0.0,0,0 
11840 DATA 0,0,0.0,0,0,0,0 
11850 DATA 00010000 
11860 DATA 00111000 
11870 DATA Oil 1 1100 
11880 DATA 001 11000 
11890 DATA O01L1000 
11900 DATA 00111000 
11910 DATA 00010000 
11920 DATA 00010000 
11930 DATA 0,0,0,0,0,0,0,0 
11940 DATA 0,0,0,0,0,0.0.0 
11950 DATA 0,0,0,0,0,0.0,0 
11960 DATA 00000000 
11970 DATA 00000000 
11980 DATA 00000000 
11990 DATA 00100 000 
12000 DATA 01010001 
120.10 DATA 10001010 
12020 DATA 00000100 
12030 DATA 00000000 
12040 DATA 0,0.0,0,0,0,0.0 
12050 DATA 0.0,0,0,0,0,0,0 
12 060 DATA 0.0.0.0,0,0.0,0 
12070 DATA 00000000 
12080 DATA 00000000 
1 2090 DATA 00000000 
12100 DATA 10000010 
12110 DATA 01000101 
12120 DATA 00101O00 
12130 DATA 00010000 
12140 DATA 00000000 
12150 DATA 0,0.0.0.0,0,0,0 
12160 DATA 0,0.0.0.0,0,0,0 
12170 DATA 0,0,0,0,0,0,0,0 

Execute o programa e grave a tabela 
resultante com o comando: 

B3AVE 'CA3:AVAL' -15100,-14501 



AS PARTES E TODO 



Longos programas em codigo devem 
ser montados por partes. Bom para tes- 
tar as rotinas individualmente, esse me- 
todo tem, contudo, a desvantagem de 
deixar para o leilor a tarefa de juntar os 
pedacos do programa, O falo de as ro- 
tinas isoladas serem executadas com su- 
cesso nao garante o funcionamento do 
programa completo. 

Como no exemplo anterior, a maior 
dificuldade consiste em uma das panes 
ser apagada por outra durante o proces- 
so de montagem, Se voce gravou mais 
bytes do que devia junto com urn dos 
segmentos do programa, corre o risco 
de ver algurts desses bytes apagarem par- 



te de outro pedaco, adjacente na rnemo- 
ria. Assim, quando gravarmos os codi- 
gos de uma porcao do jogo usando o 
monitor de INPUT, devemos informar 
o endereco inicial e o endereco final pa- 
ra determinar o numero exato de bytes 
a serem transferidos para a fita. Se re- 
corrermos ao comando BSAVE do 
MSX, devemos usar a sintaxe: 

BSAVE 'CAS: NOME' 

seguida do endereco inicial, uma virgu- 
la e o endereco final da porcao a ser 
gravada. 

Quando usamos o Assembler para 
montar os programas dos artigos, o en- 
dereco inicial c sempre igual a origem 
(ou seja, o numero que vem apos o fal- 
so mnemonico org). O proprio Assem- 
bler cuida de eomecar a rotina nesse en- 
dereco. Nos programas BASIC que 
criam tabelas de dados na memoria a 
pariir de linhas DATA e usando POKE, 
o endereco inicial da tabela pode ser en- 
conlrado na propria listagem — valor 
inicial da variavel de controle do laco 
FOR.. .NEXT responsavel pela leitura e 
iransferencia dos dados para a memo- 
ria. 

Ja o calculo do numero de bytes a 
gravar e mais dificil, pois o endereco fi- 
nal informado pelo Assembler nem sem- 
pre e o do final da rotina. 

Ha quern prefira gravar alguns bytes 
a mais, por seguranca; nesse caso, po- 
rcm, corre-se o risco de apagar pedacos 
de outras rotinas no processo de mon- 
tagem do jogo completo. 

O modo mais seguro de juntar as par- 
tes do programa consiste em ler as roti- 
nas no gravador, preenchendo a memo- 
ria em ordem crescente. Porcoes com 
enderegos iniciais menores devem ser re- 
cuperadas da fita primeiro, sendo segui- 
das sempre das rotinas que ocupam po- 
sicoes sucessivas. Isso fara os bytes gra- 
vados em excesso serem apagados pela 
prt'mma rotina (e nao o contrario). As- 
sim, qualquer instrucao ret, colocada no 
final de uma rotina apenas para permi- 
tir o sen funcionamento isolado, tam- 
bem sera apagada. 

Quando todas as rotinas montadas li- 
verem sido colocadas na memoria e es- 
tiverem funcionando, o programa resul- 
tante deve ser gravado inteiro, com ou- 
tro nome. Seu endereco inicial sera o da 
primeira rotina lida na fita e o final se- 
ra o endereco final da ultima rotina co- 
locada na mcm6ria. Qualquer problema 
pode exigir que as rotinas sejam reuni- 
das novamente. Nao se esqueca de gra- 
var as tistagens Assembly — os progra- 
mas-fonte — bem como os programas 
BASIC que criam as tabelas na memo- 
ria, pois voce pode precisar repetir o 
processo de montagem. 



Se houver qualquer tipo de problema 
com as tabelas de dados, podemos mon- 
tar as rotinas em cbdigo, na ordem ci- 
tada, e executar cada urn dos programas 
em BASIC, Eles devem ser lidos no gfa- 
vador, urn a urn, postos em execucao e, 
em seguida, apagados pelo comando 
NEW. Depois disso, o proximo progra- 
ma criador de tabelas sera iido na fita 
e o processo se repetira. 



Adicione as prbximas linhas ao pro- 
grama criador de tabelas que vem sen- 
do montado ao longo destes artigos; 

110 READ AS 

120 FOR A-l TO LEN (AS) 
130 POKE AD.ASC(MIDS{AS,A. l]j 
140 AD-AD+1 
150 NEXT A 

160 DATA llltt IM'IIMH H' 
«•!•*•!*•! I 
170 FOR A-l TO 702 
180 READ AS .-POKE AD, UAL t "S.H"+A$ 
) 

190 AD-AD+1: NEXT A 
200 IF AD01823S THEN PRINT "ER 
R0R" 

210 DATA S5, 54 ,50, 50, 40, 40, 0,0, 
7F.5F.5 7.D7,F5,FF,D5.75.DD,77.5 
D.D5, 7D. 75, 50.7 7. F5.FD, 57,75, DD 
. 7 7,5D,D5.FD, 5F.5 7.D7,5D.FF.D5, 
7F. 75.7 7. FD.F7.D5, 50,75,77,55, D 
5 . D5 . 5D , 5D , D7 , F5 , 7D , D5 , 5D , 5D , D7 
,55,57,FF,?F,57.57,FD,FD 
220 REM sol 

230 DATA 55,75,D5,55,55.75,D5,5 
5, 75, 75, 05, 05, SO, 50, OS, 05, 5D,5D 
.D7.55.S7.5D,D7,SD,D5,D5,5D,5D, 
75.07,00,75,70.50,75,05,50,75.5 
D,D7,5 7,75,5D,5D.F5,D5,57,75.5D 
,D5,57,75,57,55,55,D7,F7,55,55. 
DD 

240 DATA 57.55. 55. D5, 77, 55, 55, D 
F,D5,D5,5 7.55,5D.D5,57, 7F.F5, 75 
,5D,55,57,75.5D,F5,5 7.5D,7S.5F. 
5D. 5 7. D7, 55, 75, 75, 57. 55. 55. 77 ,7 
5.D5,55.D7.75,D5.5 5,D7,75,75,57 
, 5 7. 5D. 75. 57. 57. 50, 55. 55. 57, 5D, 
55 

2 50 REM numeros 

260 DATA 7D.D7,D7,D7.7D.5D.7D,5 
, 50 , FF . 70 . 07 , 5D . 7 5 . FF , FD , 5 7 . FD 
,57,FD.5D, 7D.DD.FF. 5D.FF.D5.7D. 
57.FD.7F.D5,FD,D7,7D,FF,5 7,5D,7 
5,75.7D.D7,7D,D7. 7D , 7F , D7 , 7F , 57 
.57 

270 REM graficoa 

280 DATA 57.5F.5F.57.5F.5F.5F.5 
F,D5.F5.F5.D5.F5.F5,F5,F5,5F. 5F 
,57,57.57.57,57,5 7,F5.F5.D5,D5, 
D5.D5.D5.FD.55,55.55,55,55.55,5 
5,55.57,5F,5F.57 i 55.57,57.57,D5 
.F5,F5.D5,5S,55,55,FD.55,55,55, 
55.55,55.55.55,55,55,55,55,55,5 
5,55,55.FD,55.5 7.5D.75,D5,75.55 
290 DATA 55,55,D5,75,5D,5D,5F,5 
5, 55, 55, 55, 55. S5. 5 5. 55, 55, 55, 55 
,55,55,57,5F,5F.57,55,55.55.55. 
|05.F5.F5.D5.55.57.57,57,FO,55,5 



7 , 5D , 55 , 55 , 55 , FD, 55 , 55 , D5 , 75 , 75 
,DS,7S,55,55.55,55,55,5D,5D,SF. 
55,55,55,55.55,5 5.55,55,55,55,5 
5, 55, 55, 55, 55, 55. 5 5. 5 7, 5F, 5 F, 5 7 
300 DATA 55,55,5 5,5 5,D5,F5,F5,D 
5,55,55.55.55.55,55.55,55,55,55 
,55.55.55.55.5 5.55,55,5 7.57,57, 
FD,55.57.5D.55.55,55.FD,55,55.D 
5.75.55,55.55,55,55,55,55,55,55 
.55.55,55.55,5 5,55.55,75,05.75, 
55,5 5.55,55,55,5D,5D,5F,55,5 5.5 
5,55,55,55.55 

310 DATA 55,55.55,55,55,55,57.5 
F, 7F.FF.FF.FF. 7F , 5F , F5 , FD , FF , FF 
,FF,FD,F5,D5,55,5 5,55,55, 55, 55. 
55 r 55,5F,7F,FF,FF.FF, 7F.5F.5 7.D 
5,FS.FD,FF,FF,FF r FI>,FS,5S t $5,5S 
, 55 . 55 , 55 , 55 , 55 , 5D, 5 7 , 55 , 55 , 55 , 
5 5 , 55 , 55 , 5D , 75 , 05 , D5 . D5 . D5 , D5 , D 
5,57,5F,7D,7F,7F,5F,57,5 7,D5,F5 
320 DATA FD.FD,FD,F5.D5,D5,S7.5 
7,55,55,55.55,55.55.D5,D5,F5,F5 
, 7D , 7D, 5F , 5F , 55 , 55 , 55 , 55 . 57 , 57 , 
5F,5F r 7D,7D.F5,F5,D5.D5,55,5 5.7 
D,7D,F5,F5.7D.7D,5F.SF, 55,55,70 
, 5F , 7D , F5 , 05 , 05 , 55 , 55 , AA , AA , 56 . 
56.AA.AA, 5 5,55,AA.AA.95.95,AA.A 
A,55,55.7F,FF,FF,FF,7F,5F,81 
330 DATA 15.7D.FF.FF,FF,FD,F5,5 
7,57,57,5F,5F,5F.5F,SF,55,55.55 
, D5 , 05 . D5 , 05 . 57 , SF , 7F , 5F , 5F , 5F , 
S7,5 7,55,D5,F5,D5,D5.D5.5S.55.A 
A , AA , AA , A6 , 99 , 6A . AA , AA , AA , AA . AA 
, AA , A9 , 66 , 9A , AA , AA , AA . AA . 6A , 9A , 
A6 , A9 , AA , AA, AA . AA . A6 , 99 , 6A . AA, A 
A. 

Os sustenidos e pontos de exclama- 
cao na linha 160 definem a silhueta da 
montanha. Cada sustenido corresponde 
a um caractere representativo de uma 
parte plana e cada ponto de exclamacao, 
a um caractere de declive. 

As linhas 210 a 330 concern os bytes 
cur respondent es aos padroes dos blocos 
graficos utilizados — sol, as pedras 
que rolam, as cobras venenosas e o pro- 
prio Willie. Pode parecer que ha um ex- 
cesso de dados na listagem, mas, para 
dar suavidade ao processo de animacao, 
as ftguras moveis serao desenhadas em 
posicoes diferentes. 

Longos programas em codigo devem 
ser montados por partes. Isso e bom pa- 
ra testar as rotinas individuaimente. Mas 
o sucesso na execucao de rotinas isola- 
das nao garante o funcionamento do 
programa complete O principal perigo, 
neste como em outros casos, consiste em 
uma das partes apagar outra durante o 
processo de montagem. Assim, se voce 
gravou mats bytes do que devia junto 
com um dos segmentos do programa, 
eles podem suprimir parte do outro pe- 
daco adjacente na mem6ria. 

Quando gravarmos os codigos de 
uma porcao do jogo usando o monitor 
de INPUT, devemos informar os ende- 
recos inicial e final, de modo a transfe- 



rir para a fita o mimero exato de bytes. 
Se usarmos o comando CSAVEM do 
TRS-Color, devemos recorrer a sintaxe: 

CSAVEM ' NOME ' , 

seguida do endereco inicial, uma virgn- 
la e o endereco final da porcao a gra- 
var. Quando usarmos o Assembler pa- 
ra montar os programas listados nos ar- 
tigos, o endereco inicial sera igua! a ori- 
gem (ou seja, o numero que vem apos 
o false mnemonico ORG). O proprio 
Assembler cuidara de comecar a rotina 
nesse endereco. Nos programas BASIC 
que criam tabelas de dados na mem6ria 
a partir de linhas DATA e usando PO- 
KE, o endereco inicial da tabela pode ser 
encontrado na propria listagem — va- 
lor inicial da variavel de controle do la- 
co FOR. ..NEXT responsavel pela leitu- 
ra e transferencia dos dados para a 
memoria. 

Mais diffcil e a tarefa de calcular o 
numero de bytes a serem gravados. E 
que o endereco final irtformado pelo As- 
sembler nem sempre e o do final da ro- 
tina. Muitas vezes, aquele endereco e 
apenas o da ultima instrucao n.ontac.a, 
o que em muitas das nossas list igens sig- 
nifica um rotulo seguido por um aste- 
risco, usado para calculo de s< itos e des- 
vios, nao correspondendo ao final do 
programa. 

Procure nao gravar bytes a mais pa- 
ra nao apagar pedacos de outras rotinas 
no processo de montagem do jogo. A 
maneira mais segura de juntar as panes 
do programa consiste em ler as rotinas 
no gravador, preenchendo a memoria 
em ordem crescente. Porcoes com ende- 
recos iniciais menores devem ser recu- 
peradas da fita em primeiro lugar, sen- 
do seguidas sempre das rotinas que ocu- 
pam posicoes sucessivas. Isso fara os 
bytes gravados em excesso serem apa- 
gados pela prdxima rotina {e nao o con- 
trario). Assim, qualquer instrucao RTS, 
colocada no final de uma rotina para 
permitir o seu funcionamento isolado, 
tambem sera apagada. 

Quando todas as rotinas montadas ti- 
verem sido colocadas na mem6ria e es- 
tiverem funcionando adequadamente, 
chegou o momento de gravar, inteiro, 
o programa resultame, com um outro 
nome. Seu endereco inicial serao da pri- 
meira rotina lida na fita e o endereco fi- 
nal sera o endereco final da ultima roti- 
na colocada na memoria. Qualquer pro- 
blema pode exigir que as rotinas sejam 
agrupadas novamente. Nao se esqueca 
de gravas as listagens Assembly — os 
programas-fonte — , assim como os pro- 
gramas BASIC que criam as tabelas na 
memdria, pois voce pode precisar repe- 
tir o processo de montagem. 

















LINHA 


FABRICANTE 


MODELO 
Thor2010 


FABRICANTE 


MODELO 


PAIS 


LINHA 


Apple 11 + 


Appletronlca 


Appletronica 


Trior 2010 


Brasil 


Apple II + 


Apple 11 + 


CCE 


MC-4000 Exato 


Apply 


Apply 300 


Brasil 


Sinclair ZX-81 


Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasil 


Apple II + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasil 


Apple II + 


Apple 11 + 


Digitus 


DGT-AP 


CPA 


Polaris 


Brasil 


Apple II + 


Apple 11 + 


Dismac 


D-8100 


Codimex 


CS-6508 


Brasil 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC II 


Digitus 


DGT-100 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Houston 


Houston AP 


Digitus 


DGT-AP 


Brasil 


Apple II + 


Apple 11 + 


Magnex 


DM II 


Dismac 


D-8000 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MXZ001 


Dismac 


D-8001/2 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasil 


Apple II + 


Apple 11+ 


Maxitronjca 


MX-64 


Dynacom 


MX-1600 


Brasil 


TRS-Color 


Apple 11+ 


Maxitronica 


Maxitronic 1 


ENIAC 


ENIAC II 


Brasil 


Apple II + 


Apple 11+ 


Microcraft 


CrattlPtus 


Engebras 


AS-1000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple II Plus 


Filcres 


NEZ-8000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple II + 


Apple 11 + 


Milmar 


Apple Senior 


Gradients 


Expert GPC1 


Brasil 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasil 


Apple II + 


Apple 11 + 


Polymax 


Maxxi 


Kemitron 


NajaBOO 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Polymax 


Poly Plus 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple It + 


Spectrum 


Mlcroengenho 1 


LZ 


Color 64 


Brasil 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum sd 


Magnex 


DM II 


Brasil 


Apple 11 + 


Apple 11 + 


Suporte 


Venus II 


Maxitronica 


MX-2001 


Brasil 


Apple 11 + 


Apple!t + 


Sycomig 


SICI 


Maxitronica 


MX-48 


Brasil 


Apple 11 + 


Apple 11 + 


Unitron 


APII 


Maxitronica 


MX-64 


Brasil 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


Elppa II Plus 


Maxitronica 


Maxitronic I 


Brasil 


Apple II + 


Apple 11 + 


Victor do Brasfl 


ElppaJr. 


Microcraft 


Craft ll Plus 


Brasil 


Apple 11 + 


Apple lie 


Microcraft 


Craft lie 


Microcraft 


Caftlle 


Brasil 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasil 


Apple Me 


Apple He 


Spectrum 


Mlcroengenho II 


Microdigital 


TK82C 


Brasil 


Sinclair ZX-81 


MSX 


Gradlente 


Expert GPC-1 


Microdigital 


TK-83 


Brasil 


Sinclair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-85 


Brasil 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigitai 


TK-90X 


Brasil 


Sinclair Spectrum 


Sinclair Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasfl 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Engebras 


AS-1000 


Milmar 


Apple Master 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Filcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasil 


TRS-80 Modi V 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxi 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Prologica 


CP-200 


Polymax 


Poty Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Ritas 


Ringo R-470 


Prologica 


CP-200 


Brasil 


SlnclairZX-81 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasil 


TRS-80 Mod.lll 


Sinclair ZX-81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasil 


TRS-Color 


TRS-80 Mod. I 


Dlsmac 


D-8000 


Prologica 


CP-SOO 


Brasil 


TRS-80 Mod.lll 


TRS-80 Mod. I 


Dlsmac 


D-8001/2 


Ritas 


Ringo R-470 


Brasil 


Sinclair ZX-81 


TRS-80 Mod. I 


LNW 


LNW-80 


Sharp 


Hotbit HB-800( 


I Brasil 


MSX 


TRS-80 Mod. I 


Video Genie 


Video Genie t 


Spectrum 


Mlcroengenho 


I Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Mlcroengenho 


II Brasil 


Apple He 


TRS-80 Mod.lll 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Kemitron 


NajaSOO 


Suporte 


Venus II 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-300 


Sycomig 


SICI 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasil 


TRS-80 Mod.lll 


TRS 80 Mod.lll 


Sysdata 


Sysdata III 


Sysdata 


Sysdata IV 


Brasil 


TRS-80 Mod.IV 


TRS-80 Mod.lll 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasil 


TRS-80 Mod. II 1 


TRS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.IV 


Sysdata 


Sysdata IV 


Timex 


Timex 1S0O 


USA 


Sinclair ZX-81 


TRSColor 


Codimex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APII 


Brasil 


Apple 11 + 


TRSColor 


LZ 


Color 64 


Victor do Brasil 


Elppa II Plus 


Brasil 


Apple 11 + 


TRSColor 


Microdigital 


TKS-800 


Victor do Brasil 


Elppa Jr. 


Brasil 


Apple 11 + 


TRSColor 


Prologica 


CP-400 


Video Genie 


Video Genie I 


USA 


TRS-80 Mod. 1 


INPUT foi especialmente projetado para 
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microcomputadores compativeis com as sete principals ] Sinclair zx-bi 


■_■ TRS-80 L 


JLU TK 2000 


frri msx 




jjnhas existences no mercado. 

Os blocos de textos e listagens de programas aplicados ^^^ 






Quando o emblems for seguido de uma 
faixa, entao lanlo o 


r "] r- 


~l~l 


apeaas a determinadas linhas de micros podem ser 
identificados por meio dos seguintes sfmbolos: 


^■■■i 


■ ■ 


m 


programas que $i 

especificos para ; 


seguem passam a ser 
linna indicada. 


mmmm Spectrum 


■Jl TRSColor L. 


■J Apple II 



IIIIIIIIIIIHNO PROXIMO NUMEROHHIIIII 



APLICAQOES 

Calendarios mensais e anuais. Registros de eventos. Veja como o 
computador pode ajuda-lo a cumprir os cotnpromissos. 

PROGRAMACAO DE JOGOS 

Faca urn pouso suave e tranqiiilo na superffcie da lua. Alern de habilidade, 
voce vai precisar de muito sangue frio. 

CODIGO DE MAQUINA 

Como usar uma tabela para definir o contorno da montanha. 
Deslocamento do cenario. Como colorir os espacos. 
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